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ABSTRACT 


Analytical and experimental phases of the subject investigation are 
described. The analytical program for the single jet determines the 
terminal shock location, the jet boundary, the interface profile, the bow 
shock profile, the shear layer growth and the dead air region pressure. 

The experimental program described was conducted over the range of = 0.4 
to = 2.0 at angles-of-attack up to 18° and at thrusting coefficients up 

to C = T/q A =30. Variables investigated included aeroshell angle, 
number of nozzles, engine thrust, size of nozzles, nozzle throttling and 
gas composition. The influence of these variables on the aeroshell stability, 
drag, and loads was determined by integrating pressure measurements on the 
aeroshell. The total system forces consist of components due to pure thrust 
and components due to pressures on the aeroshell arising from the jet-free 
stream interaction. Shadowgraphs provided flow field geometries which 
proved to be within 10% of those predicted analytically. 
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1. INTRODUCTION AND SUMMARY 


Intense interest has been generated recently in various techniques for 
the aerodynamic and propulsive deceleration of planetary lander vehicles. 

One of the more promising systems that has been proposed consists of a 
large-angled conical aeroshell augmented with a retrorocket (s) . This system 
operates in supersonic, transonic and subsonic flight regimes during landing 
and has a retrorocket (s) which furnishes high thrusting coefficients (i.e., 

C T > 1.0 at M^ = 2.0, increasing to y 40 at = 0.3) for deceleration 
and operates in the presence of a large angle conical aeroshell shape. 

The advancement of such a system, however, has been stymied due to the 
lack of an adequate definition of the interaction of the retrorocket 
exhaust (s) with the counterflowing atmosphere and the subsequent effects on 
the aerodynamic characteristics of the aeroshell. Specifically the effects 
of aeroshell angle, number of nozzles, engine thrust, size of nozzles, 
nozzle throttling and exhaust gas composition on the aerodynamic loads, 
stability and drag are required. 

To define this interaction, NASA Office of Advanced Research and 
technology sponsored an analytical and experimental investigation of the 
flow field about aeroshell-retrorocket systems in a counterflowing atmosphere. 
Analytical methods^ were developed during the first year to predict the flow 
field in the immediate vicinity of an aeroshell with a single retrorocket 
exhausting into an oncoming supersonic flow. In the second year a digital 
computer program was developed for the analytical solution and a general 
experimental investigation of the interaction was undertaken which recovered 
both subsonic and supersonic free stream conditions. Comparisons were made 
between experimental and analytical results. These results provide a basis 
for understanding the flow field about planetary lander vehicles with 
retrorocket systems. 

In this report, the results of an exploratory experimental wind tunnel 
test program, performed in the NASA Ames 6 ! x 6 ' supersonic wind tunnel, are 
described. This test program has provided, for the first time, many of the 
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answers necessary to determine the effects of various retrorock et configura- 
tions on the system stability and drag. In addition, a comparison is made 
between the theoretical predictions of Reference 1 and the experimental 
results for the locations of the jet terminal shock, jet bou'ndary, interface 
and bow shock wave in the flow field of a single centrally mounted engine. 

The existing literature on the effects of retrorockets projected up- 
stream from the nose of bodies in supersonic flows is considerable, dating 
back at least 15 years. However., not all previous work has been dedicated 

to the use of forward facing jets for deceleration and the bulk of the 

material published is limited to supersonic free stream Mach numbers, 
single jets centrally mounted, low thrusting coefficients (C^. < 0.5) and to 
flow exhausting from tubes or flat faced cylindrical bodies. A review of 
previous work is contained in Reference 1. 

Only a limited amount of experimental data is available on multiple 
engine-aeroshell combinations. Keyes and Hefner^ tested a three jet con- 
figuration on a sixty degree half angle cone and a flat faced model at 

thrusting coefficients up to = 1.2 and a free stream Mach number of six, 

=6.0. Peterson and McKenzie^ made experimental measurements of the 
forces and moments on a semi-ellipsoid body shape which had four simulated 
retrorockets on the forward flat face which operated countercurrent to sub- 
sonic and supersonic airstreams. Experiments were performed at free stream 
Mach numbers ranging from 0.25 to 1.90 and total thrusting coefficients up 
to 10. 

The present experiments were performed over a free stream Mach number 
range from = 0.4 to = 2.0. The wind tunnel models consisted of a 
single jet 45° aeroshell pressure model and single and three jet 60° aero- 
shell pressure models (Figure 1) and air and helium were used to simulate 
the exhaust gas. Three air nozzle sizes and one helium nozzle size were 
tested in conjunction with the single engine aeroshell models. A single 
air nozzle size and a single helium nozzle size were tested on the three 
engine aerdshell. The three engine, 60° aeroshell-air nozzle combination 
as well as one of the single air nozzle- 45° and 60° aeroshell combinations 
simulated a representative Mars lander vehicle. A brief summary of the 
experimental results were published previously in Reference 15. A theory 
for jets exhausting counter to subsonic free streams may be found in 
Reference 16 . 
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2. EXPERIMENTAL METHOD 


2.1 Scaling Parameters 

One of the considerations in the wind tunnel test program was to simulate 

the retrorocket-f ree stream interaction of representative Mars lander vehicle 

(Table 1, p. 5) using different fluids for the retrorocket exhaust and atmosphere 

4 5 

in the simulation. It has been shown before ’ that proper simulation of 
the exhaust flow may be accomplished if the nozzle exit to ambient pressure 
ratio, P / P^, as well as the pressure sensitivity of the exhaust flow with 

respect to flow direction P ^ -j— ■ are matched. In the present investigation 
total simulation is accomplished by matching the engine scaling parameter, 
free stream Mach number, thrusting coefficient and plume sensitivity parameter. 

The primary parameter which characterizes the interaction of a retro jet 
with a countercurrent stream is the thrusting coefficient 


C T 


2T 


q «> A B 


V M P A„ 
'00 CO 00 B 


( 1 ) 


The thrust, T, may be written as 


T = P A (1+ y M ) 
e e e e 
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therefore, 
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TABLE I. NOZZLE DESIGN PARAMETERS 



























It also follows that the flow geometry will depend on the ratio of the 

nozzle exit pressure to the local dead air region pressure, P /P , , since 

e a 

this parameter controls the expansion of the exhaust gases and the location 

of the jet boundary. Since « P^, the expansion of the jet gases and 

location of the jet boundary will be simulated if the ratio of P /P is 

e °° 2 

matched. From equation (3) we see that P^/P^ varies lineraly with 
for a given nozzle configuration. 

Rewriting equation (3) in the form 


P 

e 



P C„ 


X» a b 


2A (1 + Y M ) 
e e e 


(4) 


we see that the right hand of the above expression is only dependent on the 
nozzle paramters and y . This will be termed the engine scaling parameter. 

Finally, the difference in ratios of specific heats must be accounted 

for in order to properly simulate the rocket retro-plume with a model 

utilizing air. In particular, compensation is required for the differences 

in the variation of flow turning angle with pressure ratio. This may be 

done by matching the vehicle and model exhaust gas pressure sensitivity 

dP 

with respect to flow direction, 1/P . Rewriting this condition, we 

obtain dP/P a dv, so that we plot P vs. V on semilog paper for the hot 
rocket exhaust (y = 1.28) and the cold air jet (y g = 1.4), overlay the 
curves and translate the axes until a best fit is found. The point at which 
the model c'irve is superimposed upon the one for the hot rocket exhaust will 
yield the optimum model exit Mach number, M . This procedure was also 
followed for the helium nozzle. 


In summary, the scaling parameters which were matched in the tests 


are 


M 


Y A 

1 rYi 


L B 


2A (1 + y M ; 
e e e 


P /P 
e 00 

1/P dP/dV 


(Engine Scaling Parameter) 


(5) 
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2.2 ■ Model Nozzle Design 

The model nozzle design was based upon a hypothetical Mars lander 
consisting of an aeroshell with retroroclcets (Reference 1).’ This lander 
was assumed to have the following engine characteristics.- 


A*/A b 

A /A* 
e 

M 

e 

Y 

e 


= 3.31 x 10 ^ (total for three engines) 

= 40 

= 4.73 

= 1.28 


The specific heat ratio of the Martian atmosphere was taken as 1.304. 


To simulate this engine the first procedure was to match l/P dP/dv. 

This resulted in an air nozzle exit Mach number of M = 4.30 (A /A* =13.95) 

e e 

and- a helium nozzle exit Mach number of 3.2 (A /A* = 3.41) to achieve a 

e 

good turning angle match up to pressure ratios of 1000. 


The Mars lander nozzle scaling parameter is 


2A 

e 


Yqq A b 

(1 + y M 2 ) 

' e e 


1.664 


( 6 ) 


From this, the ratio of the model base area to the nozzle exit area, A /A , 

m e 

and thus the throat area to model base area ratio A*/A of the model could 

m 

be determined. For instance, for air nozzle 2 which simulates the 

representative Mars lander vehicle, it was found that the model throat area 

ratio was A*/A = 11,16 x 10 ^ (Total for three engines) which fixed the 
m 

basic scaled model nozzle design. 

In addition to the basic scaled model air nozzle, two other air nozzle 
sizes were selected such that the nibzzle scaling parameter could be made a 
factor of two larger and smaller. The purpose of this was to provide 
information as to the influence of the engine size on the retro flow field. 
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A helium nozzle was also selected which simulated the representative 
Mars lander vehicle. Helium nozzle flow was utilized to determine if 
changes in exhaust gas composition, which effect the mixing between the 
free stream and exhaust gases, cause changes in the aerodynamic characteristics 
of aeroshell vehicles with retrorockets . 

The model nozzle configurations used in the test are summarized in 

Table I along with the Mars lander nozzle. Note that the nozzle designated 

air nozzle 2 simulates the Mars lander nozzle. This nozzle was the only air 

nozzle tested on the three engine 60° aeroshell. The column labeled 

(d*/d ) is the diameter ratio of a single equivalent nozzle. The 

m eft 

diameter ratio for each nozzle of the three engine configuration is equal 

t0 < d *' d mW ^ 


2 . 3 Wind Tunnel Models 

The configurations tested in the Ames 6* x 6' Supersonic Wind Tunnel 

were 

a) a forty five degree (45°) half angle conical 
aeroshell with a single engine, 

b) a sixty degree (60°) half angle conical aeroshell 
with a single engine, 

c) a sixty degree (60°) half angle conical aeroshell 

o 

with three engines, spaced 120 apart (Figure 1). 

The models were 4.0 inches in diameter and were sting mounted in the wind 
tunnel. The retrorockets were supplied by a high pressure source of dry 
air and helium which was piped to the model plenum chamber through a 
hollow streamlined strut and sting. The nose radius and corner radius of 
all aeroshells were twenty percent and: six percent respectively of the 
model base radius. Three air engine sizes and one helium engine size were 
tested in the single jet model and one air and one helium size were tested in 
the three engine configuration. All nozzles used had conical diverging 
sections with semivertex angles of fifteen (15°) degrees. 
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Details of the single engine models' are shown in Figures 2 through 5. 

Pitching moment data is referenced to the virtual nose of the aeroshell 
vehicles. The single engine 60 and 45 aeroshells were instrumented with 
thirty (30) pressure taps of .028 inch inside diameter installed flush with 
the model surface. The locations of the pressure taps are noted in 
Figures 3 and 4 and pressure taps numbered 129 and 130 were used to measure 
the base pressure. The pressure taps on the forward surface of the aeroshell 
were located on seven concentric circles. The aximuthal angle, <j>, and the 
radius ratio for each pressure tap are noted in Table II, P. 14. The geometric 
features of the three air nozzles and the helium nozzle tested with the 
single engine aeroshell vehicles are noted in Figure 5. 

The three nozzle 60° aeroshell model was instrumented (Figure 6) with 
forty five (45) pressure taps of which there was one edge tap (343) and two 
base pressure taps (344 and 345) . The geometric features of the three 
engine air and helium nozzles are shown in Figure 7. Each engine was scarfed 
at an angle of thirty degrees (30°) so the nozzle exit plane xjould be flush 
with the aeroshell surface. The aximuthal angle, (j), and the radius ratio 
for each of the three engine aeroshell pressure taps are noted in Table III* P. 17. 

In the three engine case, all nozzles were connected to a common mani- 
fold located behind the aeroshell (Figure 8) . The gas was then conducted 
to each engine through spearate engine tubes. Uniform flow properties were 
preserved by placing a flow straightener in each engine tube. The engine 
circle was at . 8 of the aeroshell radius for the multiple jet configuration. 

The multiple engines were scarfed at an angle of thirty degrees (30°) so 
their exit planes would be flush with the aeroshell surface. The retrorockets, 
designated air nozzle 2 (d*/d = 0.0334) and helium nozzle, simulated the 

m 

Mars lander vehicle retrorockdt and were tested on the three engine aeroshell 
model as well as on both the 45° and 60° single engine aeroshell models. 

Engine throttling on the multiple engine model was accomplished by placing 
the proper orifice plug in each engine tube on the supply side of the flow 
straightener. A photograph of the three engine model installed ((j) = 30°) in 
the Ames 6 * x 6 ' Wind Tunnel is shown in Figure 9 . 
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Figure 3 Pressure Tap Locations - 60 Single Engine Aeroshell. 
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TABLE II. PRESSURE TAP LOCATIONS - SINGLE ENGINE MODELS 
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Note: Tap 128 located on model shoulder <p = 180 
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2 . 4 Instrumentation 


The single nozzle 45° and 60° aeroshell models were instrumented with 
thirty (30) pressure taps of .028 inch inside diameter installed flush with 
the model surface. The thirty pressure taps included one edge tap on the 
shoulder of the model and two base pressure taps. The three nozzle 60° aero- 
shell model was instrumented with forty five (45) pressure taps of which 
there was one edge tap and two base pressure taps. Surface pressures were 
measured with one bank of 3-24 port scanivalve modules. Model surface 
pressure taps were connected to the scanivalve ports with stainless steel 
tub ing . 

The total plenum chamber pressure and total temperature were measured 
on single nozzle models. For the three jet case, the plenum chamber total 
pressure for each nozzle was measured in addition to the main supply variables. 
The engine and supply pressures were measured with high pressure transducers. 

Shadowgraphs were taken at each data point. 

2,5 Range of Test Variables 

The tests were conducted at free-stream Mach Number of 0.40, 0.60, 0.80, 
1 . 05 , 1.5 and 2.0. Free stream total pressure was set at 2 psia for all free 
stream Mach numbers. Angle of attack data was taken at free stream Mach 
numbers of 0.6, 1.05 and 2.0 with an angle-of-attack range from +9° to -18°. 

The plenum air chamber pressure was varied up to 2700 psia. A summary run 
schedule of the experimental investigation is presented in Table IV ? Pages 21-22. 

The range of thrusting coefficients obtained during the wind tunnel 

test is shown in Figure 10. Air nozzle 3 covered the same range of thrusting 

coefficients as air nozzle 2 as well as the shaded areas. The variation of 

thrusting coefficient with free stream Mach number, M^ , for the typical 

terminal lander of Reference 1 is noted. This lander is assumed to have a 

2 

vehicle ballistic coefficient 3 of 0.5 slugs/ft down to a retrorocket 
ignition altitude of 5 kilometers. Adequate simulation of the representative 
Mars lander vehicle was achieved in the present experiment. 


20 



TABLE IV. SUMMARY RUN SCHEDULE 


Model 

Configuration 

Nozzle 

Configuration 

Mach 

Number 

Angle-of-Attack 
Range - a 

Ct 

Range 

45° single jet 

Air-2 

0.4 

0 

0-25 



0.6 

-18° to +9° 

0-10 



0.8 


0-6 



1.05 


0-5 



1.5 


0-4 



2.0 

-18° to +9° 

0-4 

60° single jet 

Air-2 

0.4 

0 

0-20 



0.6 

-18° to +9° 

0-12 



0.8 

0 

0-8 



1.05 

-18° to +9° 

0-6 



1.5 

0 

0-6 

' 


2.0 

-18° to +9° 

0-6 

60° single jet 

Air-1 

0.6 

0 

1-6 



1.05 

0 

1-4 



2.0 

0 

0.1-4 

60° single jet 

Air-3 

0.6 

0 

1-27 



1.05 

0 

1-14 



1.5 

0 

1-14 



2.0 

0 

0.1-14 
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TABLE IV. SUMMARY RUN SCHEDULE (CONTINUED) 


Model 

Configuration 

Nozzle 

Configuration 

Mach 

Number 

Angle-of-Attack 
Range - a 

c T 

Range 

60° single jet 

Helium 

0.4 

0 

4-40 



0.6 

0 

2-30 



0.8 

0 

1-10 



1.05 

0 

1-5 



1.5 

0 

0.5-4 



2.0 

0 

0.5-4 

60° three jet 

Air-2 

0.4 

0 

0-20 



0.6 

-18° to +9° 

0-12 



0.8 

0 

0-8 



1.05 . 

-18° to +9° 

0-6 



1.5 

0 

0-6 



2.0 

-18° to +9° 

0-6 

60° three jet 

Air-2 with one 

0.6 

0 to 13° 

2-12 


engine throttled 1/2 

1.05 

0 to 13° 

1-6 



2.0 

0 to 13° 

1-6 

60° three jet 

Air-2 with one 

2.0 

0 to 13° 

1-6 


engine throttled 1/4 




60° three jet 

Air-2 with two 

0.6 

0 to -13° 

2-4 

rolled 30° 

engines throttled 1/2 

1.05 

0 to -13° 

1-2 


: 

2.0 

0 to -13° 

1-2 

60° three jet 

Air-2 with two 

0.6 

0 to -13° 

2-4 

rolled 30° 

engines throttled 1/4 

1.05 

0 to -13° 

1-2 



2.0 

0 to -13° 

1-2 

60° three jet 

Helium 

0.6 

0 

2-8 



1.5 

o 

1-4 



2.0 

0 

1-4 
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Figure 1 0 Thrusting Coefficients Obtained During Wind Tunnel Tests. 
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2.6 Data Reduction 

Pressure coefficients were computed from the individual pressure 
measurements made on the model surface. Force and moment coefficients 
for the aeroshell models were obtained from integrations of the pressure 
coefficients over the model face excluding the nozzle exits. The total 
axial force coefficients were obtained from a summation of the model fore- 
body axial force coefficient and the nozzle thrusting coefficients. The 
pitching moment coefficients for all aeroshells are referenced to the aero- 
shell virtual nose and are based on the model base area and diameter and 
the retrothrust (thrusting) coefficient is based on free stream dynamic 
pressure and model base area. 

PRESSURE COEFFICIENT 



FOREBODY AXIAL FORCE COEFFICIENT 

C A f ‘ X/ V A m ’ J J (P f " P «o ) sin 9 dA/t U A m 

THRUSTING COEFFICIENT 



TOTAL AXIAL FORCE COEFFICIENT 

C = C + C (THREE ENGINES) 

A TOTAL A f 

PITCHING MOMENT COEFFICIENT 
0 = m/ A d 

The pressure coefficients and the forebody axial force coefficients 
are evaluated assuming that free stream static pressure acts on the model 
base. No Corrections have been made to the experimental data to reflect 
actual measured base pressures. With this assumption, pressure coefficients 
will be negative when the measured pressure falls below free stream static 
pressure. Negative axial force coefficients may also occur. 
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3. RESULTS 


3.1 Single Engine Aeroshell Models 

3.1.1 Forebody Axial Force Coefficient 
Without Retrothrust 


The variation of the forebody axial force coefficient with Mach 
number for the forty-five degree and sixty degree aeroshell models without 

retrothrust (C = 0) was compared with experimental data from previous wind 

1 ' 6-8 9 

tunnel tests performed by NASA and JPL and was in very close agreement 
over the complete range of Mach Numbers investigated (Figure 11) . The use of 
a corner to base radius ratio of r /r =0.06 in the present test caused a 
reduction in the axial force coefficient of about five (5) percent below the 
sharp cornered cone data. A similar effect was observed previous ly^ at 
= 3.0 (Figure 12). 

3.1.2 Shadowgraphs of Retrorocket- 
Freestream Interaction 


A series of shadowgraphs of the flow field about the single 
nozzle 60° aeroshell, as the thrusting coefficient is increased, is shown in 
Figures 13 through 15 . This series shows the typical behavior that is 
observed for supersonic free stream Mach numbers. At low thrusting coefficients, 
the jet penetrates into the oncoming flow, the flow is unsteady and the bow 
shock is far upstream from the model (Figure 13) . Line drawings are shown in 
Figures 13 through 15 to aid in interpretation of the photos. For this case, 
the total head of exhaust flow decays by mixing. The flow field collapses when 
the thrusting coefficient is increased further (Figure 14) and a steady blunt 
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flow interaction forms closer to the aeroshell. The geometrical features of 
the flow field such as the terminal shock, jet boundary, interface and bow 
shock wave are discernible. The features in the flow field grow in size as 
the thrusting coefficient is increased still furthur but the geometry stays ' 
nearly similar (Figure 15). In Figures 14 and 15, the total head of the 
exhaust flow decays by passing through the terminal shock wave. The aero- 
shell surface pressure data corresponding to the conditions illustrated in 
Figure 14 indicates that flow reattachment to the forward surface of the 
aeroshell is occurring. At M = 1.5 and = 6.0 (Figure 15), the pressure 

data indicates that the aeroshell is immersed in a constant pressure region 
which is typical of a wake type flow region. 

In both Figure 14 and 15, the retrojet issues into a region of 
separated flow and expands laterally to a maximum diameter determined by the 
ratio of the jet exit pressure to separated (dead air) flow pressure. The 
upstream extent of the retrojet is bounded by a terminal or jet shock which 
adjusts its pitot pressure to balance that of the free stream. The free 
stagnation point at which the pitot pressures are actually balanced is some- 
what upstream of the terminal shock, and defines the apex of the interface 
between the jet and atmospheric gases. The location of the jet boundary is 
dependent on the ratio of the jet exit pressure to the dead air pressure 

P . An interface separates the free stream gas from the jet gases. The free 
d 

stream gas which passes through the bow shock wave turns and flows outward 
between the bow shock wave and interface while the jet flow which passes 
through the jet terminal shock flows outward between the jet terminal shock 
and interface. Mixing between the free stream gases and the jet gases may 
occur along the interface if properties such as the velocity and density of 
the two flhids are different. Mixing may occur in the region which separates 
the free stream-jet layer from the dead air region (recirculation region) as 
well as along the jet boundary. 

At subsonic speeds and for all thrusting coefficients tested, the 
single engine exhaust flow penetrates far upstream into the oncoming flow and 
the flow is unsteady. The flow field is much like that shown in Figure 13, with 
out the boV shock wave. The total head of the jet decays through a mixing 
process and the penetration of the jet ceases when the jet and the free stream 
total heads become equal. 
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Figure 11 Forebody Axial Force Coefficient, 
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Figure 13 Single-Nozzle 60 Aeroshell Model with Large Jet Penetration 
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3.1.3 Bow Shock Location 


Shadowgraphs such as those shown in Figures 13 through 15 were 
analyzed to determine the location of the bow shock wave as a function of 
thrusting coefficient. The bow shock location for single engine aeroshells is shown 
in Figure 16 for = 2.0 and the nozzle simulating the Mars lander. Data is 
shown for both the 45° and 60° single engine aeroshells. The transition from 
jet penetration to blunt flow regimes occurs sharply at a thrusting coefficient 
near unity (1). The bow shock location is independent of aeroshell shape. 

At thrusting coefficients below one, the jet shock may be as many as six body 
diameters forward of the model. The flow field is of the blunt flow inter- 
action type at thrusting coefficients above one. In this region, the scale 
of the jet-free stream interaction increases with increases in thrusting 
coefficient but the geometric features of the interaction remain invariant. 

At lower supersonic Mach numbers, the transition from jet penetration 
to blunt flow interaction occurs at a higher thrusting coefficient (Figure 17). 

3.1.4 Transition from Jet Penetration to 

Blunt Flow Interaction 

Transition from jet penetration to blunt flow, was found to occur 
at the same nozzle exit to free stream pressure ratio independent of engine 
scaling parameter (Figure 18) . Data for three air nozzle sizes and two super-^- 
sdnic free stream Mach numbers are shown. It should be noted that, since 
transition occurs at the same pressure ratio, a change in engine size will 
cause transition to occur at a different thrusting coefficient. Transition 
occurs at lower thrusting coefficients for smaller nozzles and at larger 
coefficients for bigger nozzles. 
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Figure 18 Pressure Ratio for Transition From Jet Penetration to Blunt Flow. 
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3,1,5 Flow Field Geometry 


The shadowgraph pictures of the flow field in the blunt flow 
regime were analyzed for the locations of the bow shock, interface and 
terminal shock wave. Flow field geometry for air nozzle 2, which simulates 
the representative Mars lander vehicle, is shown in Figures 19 and 20 for 
free stream Mach numbers of M =1.5 and M =2.0 respectively. The inter- 
action geometry is independent of aeroshell angle (Figure 20) . Data for air 
nozzle 1 at = 2.0 is shown in Figure 21. A comparison of this data with 
that for air nozzle 2 (Figure 20) indicates that the distances to the flow 
field features are less for the smaller nozzle as was expected. The experi- 
mental data indicates that the distance to the terminal shock wave varies 

i, 

as (C^) 2 in agreement with the theoretical predictions of Reference 1. 

(See equation 42, page 39). 

3.1.6 Aeroshell Surface Pressure Distributions 

The change in surface pressure distribution on the forebody of the 
sixty degree single engine aeroshell as the retrorocket thrusting coefficient 
is increased is noted in Figures 22 through 25. Retrothrust coefficients of 
C T = 0, 3.8, and 12.7 are considered at = 0.60 in Figure 22. Data at 

= 0.60 and thrusting coefficients of = 1.96, 5.59 and 9.02 is shown in 
Figure 23. The pressure acting on the aeroshell forebody decreases with in- 
creasing thrusting coefficients. Pressure distributions at = 2.0 are shown 
in Figures 24 and 25. This data indicates that at high thrusting coefficients, 
= 4.04 (Figure 25) and C^, = 7.0 (Figure 24), the pressure acting on the 
outer portion of the forebody surface is constant. Base pressure measurements, 
for these cases, show that the base pressure is also equal to the pressure 
acting on the forebody surface. We conclude from these facts that the aero- 
shell is immersed in a constant pressure region and wake type flow exists. 

The increase in surface pressure neat the aeroshell shoulder, C^, = 2.0 
(Figure 24) $ is interpreted as indicating that reattachment of the interface 
shear layer to the aeroshell is occurring at this thrusting coefficient. 
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lution with Retrothrust 




3.1.7 Forebody and Base Pressure Variations 

with Thrusting Coefficient 

The average aeroshell frontal surface and base pressures are 
plotted as a function of thrusting coefficient in Figures 26 through 29. 

Data for 45° and 60° aeroshell vehicles are superimposed and indicates little 
effect of aeroshell angle on the resulting pressures. At = 0.60 (Figure 26) 
and = 1.05 (Figure 27) , the average frontal pressure remains higher than 
the base pressure, for thrusting coefficients considered in the present 
experiment. At supersonic speeds of = 1.5 (Figure 28) and = 2.0 
(Figure 29) , the average frontal pressure decreases with increases in thrusting 
coefficient and becomes equal to the base pressure at the larger thrusting 
coefficients. 

3.1.8 Transition from Flow Reattachment 

to Wake Type Flow 

Transition from shear layer reattachment type flow to wake type 
flow is assumed to occur at supersonic speeds when the average frontal surface 
pressure becomes equal to the base pressure. The thrusting coefficient 
magnitude for transition from flow reattachment to wake type flow is noted in 
Figure 30 for free stream Mach numbers of = 1.5 and 2.0. 

3. 1.9 Universal Base Pressure Correlation 

The universal base pressure correlation shown in Figure 31 is 
based on the experimental data recorded for all single engine aeroshell models 
utilizing air exhaust flow and provides results within 10% of any of the 
experimental data. 
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Figure 26 Average Frontal and Base Pressures - Single Engine Aeroshells, 


ENGINE AEROSHELL-AIR NOZZLE 2 
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Figure 27 Average Frontal and Base Pressures - Single Engine Aeroshells, 
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Figure 30 Thrusting Coefficient Magnitude for Transition from Flow Reattachment to Wake Type Flow. 






3.1.10 Forebody Axial Force Coefficient with Retrothrust 


The application of retrothrust from a single centrally mounted 
engine was shown to cause the pressure on the forebody surface to decrease 
substantially below the no retrothrust case, (Figures 22 through 25). The 
corresponding decreases in forebody axial force coefficient with increases 
in retrothrust coefficient are shown in Figures 32 through 36. Application 
of retrothrust results in a sharp decrease in forebody axial force coefficient 
at all Mach numbers (Figure 32) . The axial force coefficients for the 60° 
single aeroshell, utilizing air nozzle 2 which simulates the representative 
Mars lander vehicle are shown in Figures 32 and 33. For thrusting coefficients 
above two, there is little difference between the total axial force coefficient 
(i.e. sum of forebody axial force coefficient and thrusting coefficient) and 
the thrusting coefficient of the retrorocket alone. The forebody axial force 
coefficients were obtained by integrating the pressure data over the surface 
of the aeroshell and assume that the base pressure acting on the aeroshell is 
the free stream static pressure. No correction was made to the data to account 
for the actual, experimentally measured base pressures. 

Forebody axial force coefficients for 60° single engine aeroshells 
utilizing air nozzle 1 and air nozzle 3 are shown in Figures 34 and 35 
respectively. Data for the 45° single engine aeroshell using air nozzle 2 is 
noted in Figure 36. 

3.1.11 Aeroshell Stability 

The variation of pitching moment and normal force coefficients 
with angle-of-attack for the 45° and 60° single engine aeroshells is linear 
to six degrees angle-of-attack for all Mach numbers tested, with and without 
retrothurs. The magnitude of the pitching moment and normal force slopes 
agree quite well with other NASA and JPL experiments for the case of no 
retrothrust (C^ = 0). The change of pitching moment slope, normal force slope 
and aerodynamic center location with application of retrothrust is shown in 
Figures 37 through 39 for the 60° aeroshell and Figures 40 through 42 for the 
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45° aeroshell. The pitching moment coefficient is referred to the virtual 
nose of the aeroshell. The pitching moment slope increases substantially 
as the thrusting coefficient is increased to unity (Figure 37) . The pitching 
moment slope decreases from this level with further increases in thrusting 
coefficient. The pitching moment slope with retrothrust is greater than the 
no retrothrust case at all Mach numbers for thrusting coefficients up to 
C T = 2.5. The normal force slope shows the same variation with thrusting 
coefficient as the pitching moment slope (Figure 38). The aerodynamic center 
location remains essentially unchanged (Figure 39) with application of retro- 
thrust. The aerodynamic center is about one half a base diameter behind the 
base of the 60° aeroshell (Figure 39) . The variation of pitching moment 
slope, normal force slope and aerodynamic center location with retrothrust 
for the 45° aeroshell (Figures 40, 41, and 42 respectively) is quite similar 
to that observed for the 60° single engine aeroshell. However, the aero- 
dynamic center of this configuration is located nearer to the vehicle base 
(Figure 42) . 


3.1.12 Aerodynamic Characteristics with 
Helium Exhaust Flow 

A portion of the experimental testing was performed with helium 
retrorocket exhaust flow. A previous theoretical analysis'*’ indicated that the 
speed of sound ratio across the interface, which separates the shocked free 
stream gases from the retrorocket exhaust gases, has an important effect on 
mixing in the interface shear layer. (See Figure 15) . In the case of the 
representative Mars lander vehicle, the speed of sound ratio arises from 
the substantial difference in temperature between the shocked free stream 
and exhaust gases and differences in specific heat ratio and gas constant 
of the two streams. The exhaust gases are about nine times hotter than 
the free stream gases. The helium exhaust flow was used to test experi- 
mentally the effect of changing the speed of sound ratio on the mixing and 
its subsequent effect on the aeroshell aerodynamic characteristics. 
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Tests were performed at helium thrusting coefficients up to 
about C = 11.0 at subsonic (M^ = 0.80) and transonic (M w = 1.05) speeds and 
up to about C = 4.0 at supersonic speeds. The location of the box-7 shock 
wave at supersonic free stream velocities, for the single engine 60° aero- 
shell with the helium nozzle, is shown in Figure 43. The characteristics of 
the helium nozzle are noted in Table 1 and x-?ere chosen to simulate the 
representative Mars lander vehicle. The helium jet penetrated further 
forward into the oncoming air free stream flow than the air jet from air 
nozzle 2, when both nozzles operated at the same thrusting coefficient. The 
box-7 shock wave location for the helium jet could not be photographed above 
thrusting coefficients of C = 0.6 because it passed from the field of viexj 
of the shadowgraph system. The aeroshell-wind tunnel x-7indow geometry was such 
that the x-?indox-7 edge was about six and one half base diameters upstream from 
the aeroshell nozzle exit plane. Shadowgraph pictures were taken of the 
exhaust plume in field of viexv of shadowgraph at thrusting coefficients up 
to'C^ = 4.0 at M ro = 2.0. The flow pattern observed was always that of long 
jet penetration. Tests were not performed at higher thrusting coefficients 
in order to minimize the amount of helium consumed and therefore, it is not 
possible to say whether transition to a blunt flow interaction would have 
occurred, as with air exhaust flow, when the nozzle to free stream pressure 
ratio reached P / P ~ 7.0. 

e . oo ~ 

3 

The pressure distributions with retrothrust and helium exhaust 
flow are shown in Figure 44 for = 0.60 and = 1.68, 6.76 and 13.91. 
Pressure distributions for =*2.0 and thrusting coefficients up to 3.6 are 
shown in Figure 45 . 

The effect of retrothrust on the forebody axial force coefficient 
for helium exhaust flow is noted in Figure 46. A comparison of the helium data 
with air nozzle 2 data (Figures 32 and 33) indicates that the forebody axial 
force coefficients with helium flow are significantly different than those 
With air nozzle flow at all Madh numbers tested. 
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Figure 3 5 Effect of Retrothrust on the Forebody Axial Force Coefficient 
60° Single Engine Aero shell - M = 0.60, 1.05 and 2.0, Air Nozzle 3. 
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3.1.13 Flow Field at Angle of Attack 


A shadowgraph of the flow field about a 60° single engine, 
aeroshell at minus 16.7 degrees angle of attack and M = 2.0 is shown in 
Figure 47. 

3.2 Three Engine Aeroshell Data 


3.2.1 Shadowgraphs of Retrorocket - 

Free Streams Interactions 

A shadowgraph of the flow field about the three engine 60° aero- 
shell at M = 0.60 and a thrusting coefficient of 3.9 is shown in Figure 48. 
The model has been rolled on the sting (cj) = 30°) so that the flow from each 
engine is visible. At all subsonic Mach numbers, the jet flow penetrates far 
upstream from the model and the total head of a jet decays through mixing. 

A shadowgraph of the flow field at M = 2.0 and a thrusting coefficient of 
1.02 is shown in Figure 49. In this case, each of the engine exhausts is 
bent outward by the oncoming free stream flow and the total head of the jet 
still decays through mixing. The pressure distribution on the face of the 
three engine 60° aeroshell, for these conditions, shows that the aeroshell 
surface, inboard of the engines, is covered with a region of nearly uniform 
high pressure air with the pressure at the center of the aeroshell being 
equal to the free stream pitot pressure. The shock wave which is visible in 
Figure 49 near the nose of the aeroshell, sustains the high pressure levels. 
The pressufe distribution data is discussed more fully in Section 3.2.5 

A shadowgraph of the flow field about the three engine 60° aero- 
shell vehicle at M =2.0 and C_ = 4.05 is shown in Figure 50. The character 
of the flow field is changed when the thrusting coefficient is increased to 
= 4.05 (Figure 50). Now the total head of the retrorocket exhaust flow 
decays by passing through a terminal shock wave instead of through a mixing 
process. features such as the terminal shock wave and jet boundaries are 
readily visible. The individual jets interact directly with each other. The 
exhaust-free stream interaction appears to have local instabilities which 
affect the bow shock wave slope. 
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Figure 47 Shadowgraph of Flow Field at Angle of Attack -60 Single Engine 
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Figure 49 Three Engine 60 Aeroshell Flow Field M - 2.0, C - 1.02, 
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3.2.2 Bow and Terminal Shock Locations 


Shadowgraphs such as that shown in Figure 49 were scaled to 
determine the average location of the bow shock wave along the centerline 
of the flow and the location of the terminal shock waves with respect to the 
model base. The flow field geometry for the three engine 60° aeroshell with 
air exhaust flow at M = 1.5 and M = 2.0 are noted in Figures 51 and 52 
respectively . 

3.2.3 Three Engine Aeroshell Forebody 
Axial Force Coefficients 

The variations of the forebody axial force coefficient with thrusting 
coefficient for the three engine 60° aeroshell is shown in Figures 53 through 55. 
The forebody axial force coefficient decreases substantially with the application 
of retrothrust at subsonic Mach numbers (Figures 53 and 54) . A different 
behavior occurs at supersonic speeds (Figure 55). In this case,, the forebody 
axial force coefficient remains at its no retrothrust (C^ = 0) value for low 
retrothrust coefficients and then decreases sharply with further increases in 
retrothrust. 

The forebody axial force coefficient for the single engine 60° 
aeroshell at = 0.6 is shown for comparison in Figure 54. The data is 

plotted undfer the assumption that the single and three engine configurations 
operate at the same total thrusting coefficient. Subsonically , the three jet 
forebody axial force coefficient decreases more rapidly with retrothrust than 
the single engine case. 

the forebody axial force coefficient for the three engine 60° 
aeroshell at supersonic free stream conditions, M ro = 2.0, is shown in Figure 55 
along with that for the single engine aeroshell. At supersonic speeds, the 
forebody axial fotce coefficient of the three engine aeroshell configuration 
remains substantially higher than the single engine aeroshell up to thrusting 
coefficients of = 2.0. 
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Figure 54 Three Engine, 60 Aeroshell, Forebody Axial Force Coefficient 

M = 0.60, Air Nozzle 2. 
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The effect of retrothrust on the aerodynamic characteristics of 
three engine-aeroshell configurations is more, evident when the total axial 
force coefficient is considered. The total axial force coefficient is defined 
as the sum of the forebody axial force coefficient and the total thrusting 
coefficient. (See data reduction-Section 2.6). 

The variation of total axial force coefficient with thrusting 
coefficient is illustrated in Figure 56 for the three engine, sixty degree 
aeroshell at = 2.0. The total axial force coefficient acting on a single 
engine sixty degree aeroshell is shown for comparison. The total axial force 
coefficient for the three engine aeroshell is substantially above the no 
retrothrust axial force coefficient (C^ = 0) and above the single engine 
values for thrusting coefficients up to two (2) . At higher thrusting 
coefficients, the total axial force coefficients for both configurations are 
nearly equal to the thrusting coefficients alone. 

All previous experimental investigations, with the exception of 
2 

Keyes and Hefner , observed results characterized by the single engine data 
(i.e. a substantial decrease in axial force coefficient with application of 
low thrusting coefficients , followed by an increase in total force coefficient 
whose magnitude remained nearly equal to the thrusting coefficient alone). 

Keyes and Hefner found In their tests, which were conducted at 
= 6.0 with thrusting coefficients up to C = 1.2, that the aerodynamic 
drag of blunt configurations can be increased by using forward facing jets 
located near the periphery of the body. 

The present investigation shows that there is a range of thrusting 
coefficients over which the three engine configuration with retrorockets 
mounted near the periphery of the aeroshell provides substantially more 
deceleration than a single centrally mounted engine operating at the same 
total thrusting coefficient, the behavior of the three engine aeroshell with 
retrothrust at different free stream Mach numbers is shown in Figure 57 . 
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Figure 56 Comparison of Total Axial Force Coefficients of Single and 
Three Engine 60° Aeroshells; M “2.0. 
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Data for free stream Mach numbers of M = 0.6, 0.8, 1.05, 1.5 and 2.0 are 
displayed. Total force amplification is present for free stream Mach 
numbers from = 2.0 to = 0.60, though the amount of amplification 
decreases with decreasing free stream Mach number. 

3.2.4 Effect of Angle-of -Attack on Forebody 

Axial Force Coefficients with Retrothrust 

The variation of the forebody axial force coefficient with 
angle-of -attack is shown for = 0.6, 1.05 and 2.0 in Figures 58, 59, and 60 
respectively. Angle-of-attack has little effect on the forebody axial force 
coefficient at all Mach numbers and thrusting coefficients tested, for angles 
between minus six and plus six degrees, “6° <_ « <_ +6°. The data indicates 
that angle-of-attack effects may become significant outside of this range. 

3.2.5 Surface Pressure Distributions 

The variation and distribution of pressure over the surface of 
the three engine 60° aeroshell will now be considered. Surface pressure 
profiles along radial directions will be considered first. Circumferential 
pressure distributions at constant radial distance will be considered next. 

Surface pressure profiles at <j> = 0, 90° and 180° (cj> defined in Figure 6) 

are displayed in Figures 61 through 69. The radial pressure cut at 4> = 0° 

intersects engine 1 while radical cuts at <f> = 90° and 180° pass between 

engines 1 and 2 and engines 2 and 3 respectively. Pressure data at = 0.60 

is presented in Figures 61 through 65 for thrusting coefficients of = 0.0, 

1.9, 3.8, 5.8, and 13.6. The base pressure coefficient C , for each 

B 

thrusting coefficient is noted on the ordinate, though the data was actually 
measured at a given radius ratio. The pressure forces acting on the aero- 
shell surface, when retrothurst is applied at subsonic speeds, increase with 
distance from the aeroshell centerline (Figures 62 through 65). The base 
pressure with retroth rust is higher than without. The pressure acting at the 
center of the forward surface of the aeroshell and the base pressure level 



are about equal for thrusting coefficients equal to or greater than = 3.8 
(Figures 63 through 65) . The change in forebody surface pressure with radial 
distance increases with increasing thrusting coefficient. 

Surface pressure profiles at = 2.0 and thrusting coefficients 
of = 1.0, 1.7, 4.1 and 7.1 are shown in Figures 66 through 69 respectively. 

The pressure increases along the cj) = 0 cut in the vicinity of engine 1 for 
thrusting coefficients from 1.0 to 4.1. The pressure decreases with radial 
distance along cuts (<j> = 90° and 180°) that pass between the engines for 
thrusting coefficients from 1.0 to 4.1. 

The surface pressure profiles, in each of the radial directions 
(4> = 0°, 90° and 180°), have the same shape for = 7.1 (Figure 69) and the 
surface pressure coefficients at non-dimensional radial distances greater 
than r/ r m = .35 are equal to the base pressure coefficients. This indicates 
that the aeroshell body is immersed in a constant pressure region. The 
region of increased pressure near the center of the aeroshell forebody surface 
is due to the recirculation region formed between the interacting exhaust 
plumes . 

The circumferential pressure distributions with retrothrust, at 
M =0.6 and M =2.0 are shown in Figures 70 through 73. At M = 0.6, the 
circumferential pressure distributions at various radial distances (r/r^ = 0.154, 
0.378, 0.625 and 0.875) are about the same (Figures 70 and 71). The. influence 
of the engines on the local pressure distribution is quite evident in Figure 71. 

The pressure distributions at M ot =2.0 and thrusting coefficients 

of = 1.0 and 1.66 are plotted in Figures 72 and 73 respectively. For 

C r £ = 1.0, the aeroshell surface, inboard of the engines is covered with a 

region of nearly uniform, high pressure. The pressure level is independent 

of azimuth angle for r/r = 0.154 and 0.378. At r/r = 0.625, the pressure 
6 m m 

increases in front of each engine. Further outboard at r/r = 0.875, the 

m 

pressure is nearly constant over a substantial portion of the region between 
engines but decreases sharply close to the engines. At C T = 1.66, the 
circumferential pressure distribution is similar in many ways to what was 
observed at = 1.0 but the pressure level has been reduced (Figure 73). 
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Figure 65 Surface Pressure Profiles - Three Engine 60 Aeroshell 
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Figure 68 Sur 
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Figure 69 Surface Pressure 
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Figure 70 Circumferential Pressure Distribution - Three Engine 60° Aeroshell 

M =0. 60, = 13. 6. 









Figure 72 Circumferential Pressure Distribution - Three Engine 60 Aerosheil 




3.2.6 Aerodynamic Stability of Three Engine 

Aeroshall Models 

The pitch stability of the three engine. 60° aeroshell at = 0.60, 
1.05, and 2.0 is shown in Figures 74 through 79. Pitching moment and normal 
force coefficients at M = 0.6 and C„, = 0.0, 1.95 and 3.75 are shown in 
Figures 74 and 75 respectively. Figures 76 and 77 depict the behavior at 
= 1.05 and C = 0.0, 1.0 arid 1.9. The pitching moment and normal force 
at M ra = 2.0 and = 0.0, 1.04 and 1=66 are plotted in Figures 78 and 79. 

The overientation of the three engine configuration as viewed from head on 
is noted in the upper right hand corner of Figure 74. The pitch plane was 
in a vertical plane passing through the uppermost engine. The angle-of- attack 
is positive, nose up. 

The pitching moment and normal force coefficient variation with 
angle-of-attack for the three engine aeroshell with retrothrust is not 
linear with angle-of-attack as was observed on the single engine aeroshell 
and the nonlinearity increases itfith increasing Mach numbers. The thrust 
coefficients noted in the figures are the sum of the individual and equal 
nozzle thrust coefficients. At M co = 0.60, the variation of pitching moment and 
normal force coefficient with angle-of-attack is different for plus and minus 
angles-of-attack (Figures 79 and 74). In addition, the variation of pitching 
moment and normal force coefficient with angle-of-attack is different for 
different magnitudes of thrusting coefficient. 

At transonic free stream conditions, M = 1.05, substantial non- 
linearities appear, in the pitching moment and normal force coefficients 
variation tfith angle-of-attack, at negative angles-of-attack (Figures 76 and 77) . 
At supersonic velocities, the nonlinearities at negative angles-of-attack 
become quite sever (Figures 78 and 79). At negative angles-of-attack, the 
pitching moment decreases nearly to zero for C T = 1.04 and 1.06 at = 2.0 
(Figure 78). The normal force coefficient shows the same nonlinear behavior 
(Figure 79) . A region of pitch instability exists at negative angles-of-attack. 


101 



The yawing moment and side force coefficients measured during 
pitch angle-of-attack runs are displayed in Figures 80 and 81. The yawing 
moment and side force coefficients were small and varied little during an 
angle-of-attack sweep. 

A comparison of the pitching moment acting on the three engine 
and single engine aeroshells at M w = 2.0 and = 1.0 is made in Figure 82. 

The pitching moments are substantially different at negative angles-of -attack . 
It should be noted that the shape of the pitching moment curve depends on the 
roll-orientation of the pitch plane with respect to the engines . 

3.2.7 Shadowgraphs of the Flow Field about 
Multiple Engine Aeroshells at Angle-of -Attack 

Shadowgraphs of the flow field about the three engine 60° aero- 
shell at angle-of-attack, at = 0.6 and 2.0, are presented in Figures 83 
and 84. The shadowgraph in Figure 83 was taken at an angle-of-attack of 
minus 16.8 degrees, = 0.60 and = 3.92. The shadowgraph (Figure 84) was 
made at minus 9 degrees angle-of-attack, = 1.03 and = 2.0. 

3.2.8 Shadowgraphs of the Flow Field about 
Aeorshells with Throttled Engines - ^ = 0 

The aerodynamic characteristics of the three engine 60° aeroshell, 
with some of its engines throttled to partial thrust, was investigated at 
M = 0.60, 1.05 and 2.0. Measurements were made for engine 1 throttled to 
1/2 and 1/4 thrust and for engines 2 and 3 simultaneously throttled to 1/2 
and 1/4 thrust (Table IV). The effects of engine throttling were investigated 
because engine throttling affords an active means by which the aeroshell 
attitude may be controlled. Engine throttling was accomplished by placing 
orifices irt the individual engine supply tubes on the supply side of the flow 
straightener . 


102 









Mil] 


Z 

i-tj 

u 


O 

u 

uj 

U 

an 

o 


0 
z 

1 


u 



'hree Engine 60 Aeroshell - M 


i 

.0 5. : 


6 



0.06 



107 




30*0 


■o 

o 

© 

o 


CN 

o 

CN 


o 

© 

o 


O 

0 

o 

o 

& 

o 

1 


1N3DNJ3CO IN 3 WOW ONIMVA~ N D 


109 


-0„06 




60° AEROSHELL-AIR NOZZLE 2 



60 Aeroshell, 



o 

(\J 



1 1 


(2-ANGLE OF ATTACK- DEGREES 

Figure 82 Comparison of Pitching Moment Coefficients of Single and 
Three Nozzle Aeroshell Models C_ = 1.0; M =2.0. 






Figure 84 Shadowgraph of Flow Field About Three Engine 60° Aeroshell at 
Angle of Attack = 2.0, a = -9. 0°, C T = 1.03. 
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Shadowgraphs of the flow field about the multiple engine aero- 

shell at zero angle-of -attack are offered in Figures 85 and 86. Figure 85 

considers the flow field at M - 2.0 when engine 1 is throttled to 1/4 thrust. 

The total thrusting coefficient was 4.0 with the individual engine thrusting 

coefficients of C = 0.4, C =1.8 and C =1.8. A front view of the 
i El E2 i E3 

aeroshell, noting the engine orientation for the shadowgraph (Figure 85), 
is displayed in the upper left hand corner. Figure 86 presents a shadowgraph 
of the flow field at =2.0 with engine 2 and engine 3 simultaneously 
throttled to 1/4 thrust. The total thrusting coefficient is 2.8 with the 

following distribution: C = 1.7, C = 0.5 and C =0.6. 

El E2 E3 

3.2.9 Effect of Engine Throttling on the 
Forebody Axial Force Coefficient 

The forebody axial force coefficients for various engine throttling 
configurations are plotted in Figures 87 through 92. The variation of fore- 
body drag coefficient with thrusting coefficient for engine 1 throttled to 
1/2 and 1/4 thrust and = 0.60, 1.05 and 2.0 are noted in Figures 87, 89 
and 91. The variation of forebody axial force coefficient, for aeroshell 
vehicles which are not throttled but operate at the same total thrusting 
coefficient, is noted on these figures for comparison. The variations of 
forebody drag coefficient with thrusting coefficient, for engine 2 and 
engine 3 simultaneously throttled to 1/2 and 1/4 thrust and = 0.60, 1.05 
and 2.0, are noted in Figures 88, 90 and 92. Data for the three engine 60° 
aeroshell, without throttling, is shown for comparison. At subsonic speeds 
(M ro = 0.60) and low thrusting coefficients (C^ < 6), the axial force coefficient 
increases as the engines are throttled (Figures 87 and 88) . At transonic 
speeds, the axial force coefficient are the same, with and without throttling 
if the thrulsting coefficient is less than about three, i.e. C <_ 3.0 
(Figures 89 and 90). While at supersonic free stream conditions, the variation 
of axial fo'tce with and without throttling are appreciably different (Figures 91 
and 92) . 
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Figure 85 Flow Field of Three Engine, 60° Aeroshell - Engine 1 
Throttled to 1/4 Thrust M = 2.0; C T =4.0 ; 0 = 0°. 
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3.2.10 Effectiveness of Engine Throttling 
for Pitch. Control 


The total pitching moment acting on the aeroshell is the sum of 

the pitching moment due to pressure forces acting on the aeroshell surface, 

C , and the pitching moment due to imbalances in the engine thrusts, 

(ife. ) . Pitching moment coefficients were presented in E 

f E 

Section 3.2.6 for the three engine 60 aeroshell operating with equal engine 
thrusts (no throttling). In that case, the pitching moment was due entirely 
to imbalances in the pressure forces acting on the surface of the aeroshell 
(i.e. C M = ) * The pitching moment due to imbalances in thrust was zero. 

(C =0). In the present case which considers engine throttling, contributions 

from pressure forces and unbalanced thrust must be considered to obtain the 
total pitching moment acting on the aeroshell. 

o 

The total pitching moment acting on the three engine 60 aero- 
shell, as engine one is throttled to 1/2 and then to 1/4 thrust, is shown in 
Figure 93 for M =2.0. A nose down pitching moment is applied to the 
vehicle when engine 1 is throttled. The theoretical change in pitching moment 
due to throttling engine 1 alone is given by the formula: 



— * 4 1 A C T 


The corresponding theoretical change in pitching moment due to throttling 
engine 2 and engine 3 simultaneously is: 

A \l-E3 ‘ + ' 4 ' A CT 1 

where AC^ is the change in thrust of one of the engines. A nose up pitcing 
moment is applied to the aeroshell when engine 2 and engine 3 are throttled 
simultaneously . 
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The theoretical change in pitching moment due to throttling 
engine 1 (Figure 93) to 1/2 thrust for C = 1.71 is AC = -.137 while that 

“ei 

for 1/4 thrust and C = 1.62 is AC = r-,216. The data indicates that 

H32-E3 

the theoretical change in pitching moment expected from imbalances in thrust 
was not realized (Figure 93) . A change in pitching moment in the nose down 
direction did occur but not of the expected magnitude. This is due to the 
fact that the pressures acting on the aeroshell increased as the engine was 
throttled thus reducing the expected change of pitching moment. Tests were 
not performed at negative angles-of-attack with engine 1 throttled in order 
to minimize the tunnel test time and because throttling engine 1 at negative 
angles would force the aeroshell to increasingly negative angles. 

The pitching moment coefficient, with engine 2 and engine 3 
throttled to 1/2 and then 1/4 thrust, is shown in Figure 94 for = 2.0. 

The effectiveness of engine throttling for pitch control is shown 

in Figures 95 and 96 for = 2.0 and Figures 97 and 98 for = 1.05. 

Throttling effectiveness is defined as the ratio of change in pitching moment 

measured experimentally to the theoretical change in pitching moment due to 

unbalanced engine thrust, AC / AC . The effectiveness varies markedly 

^XP THEOR 

with thrusting coefficient level and at transonic and supersonic flight speeds, 
a twenty percent reduction in the effectiveness may be experienced. At sub- 
sonic speeds the expected change in pitching moment was almost achieved. 

3.2.11 Aeroshell Characteristics with 
Helium Exhaust Flow 

The three engine 60° aeroshell was tested in conjunction with 
helium exhaust flow. The variation in forebody axial force coefficient with 
helium exhaust flow is plotted in Figure 99 for = 0.60. The results with 
multiple air nozzles are shown for comparison. Single engine air and helium 
nozzle data is also plotted in Figure 99. The forebody drag coefficient for 
the aeroshell with helium exhaust flow decreases more rapidly with thrusting 
coefficient than for air exhaust flow. 
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The variations of the total axial force coefficient with helium 
exhaust flow at = 1.5 and 2.0 are shown in Figures 100 and 101 respectively. 
Data for three engine air nozzle 2 - aeroshell configuration is shown for 
comparison, as well as single engine air and helium exhaust flow data. The 
total axial force with three engine helium exhaust flow lies below the three 
engine air nozzle data at both Mach numbers. Total axial force amplification 
still occurs 3 but at a reduced level. However, the difference between the 
single and three engine helium data is about equal to the difference between 
the single and three engine air data. The thrusting coefficient for which the 
helium total axial force becomes nearly equal to the thrusting coefficient 
alone occurs at lower thrusting coefficients for the helium exhaust flow data 
than for the air exhaust flow data. This data indicates that substantial 
differences occur when different exhaust gas compositions are used. 

The circumferential pressure distribution for the three engine 
60° aeroshell with helium exhaust flow is noted in Figures .102 through 105. 
Conditions at = 1.5 and = 0.3 are shown in Figure 102 while those at 
M =1.5 and C m = 0.7, M =2.0 and C = 0.3. and M =2.0 and C„ = 0.6 are 
shown in Figures 103, 104 and 105 respectively. 

3.3 Comparisons of Theory and Experiment 

The elements used in the solution^ of the flow field about a single jet 

aeroshell in the blunt flow regime are shown in Figure 106. The atmospheric 

and retrorocket gases are treated as chemically frozen perfect gases in the 

11 

analyses. The analytical analysis of Hill and Draper is used to describe 

the flow f tom the nozzle. The jet boundary is located by the simple 

12 

approximate method of Charwat . The terminal shock is located so that it 
will increase the jet pressure to that of the decelerated free stream at the 
free stagnation point. 

For a specified free stream stagnation point pressure, the terminal shock 
location is determined using the jet flow model of Hill and Draper for the 
centerline density and Mach number decay and equations for conditions across a 
normal shock. The final location of the terminal shock wave is found by 
iterating On the difference between the desired pressure and the pressure behind 
the normal shock until this difference is zero. 
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The interface between the shocked free stream gases and the retrojet 

gases is determined using a momentum balance analysis which is similar to 

13 

that used by Finley . The control surface used for the momentum balance is 
taken to be a spherically blunted cone with cone semi-apex angle and the 
diameter of the blunting sphere d . For supersonic free stream Mach numbers 
greater than ■> 1.5, the pressure acting on the spherical portion of the 
control volume is assumed to be that given by modified Newtonian theory. 


In Reference 1, it was shown that the distance to the terminal shock and 
the diameter of the blunting sphere, d , vary as the square root of the 
thrusting coefficient i.e.^C^" . The location of the center of the blunting 
sphere is found by determining the interface standoff distance, 6 (i.e. the 

distance between the jet terminal shock wave and the interface) from a 
conservation of mass balance. The bow shock location is determined by 
considering the interface as an equivalent solid spherical body with a given 
nose radius and using the method of Reference 14. 


A comparison of theory and experiment is made in Figures 107 through 109 
for a single centrally mounted retrorocket using air exhaust flow. The 
shadowgraph (Figure 107) was taken at = 2.0 and = 4.0. Surface pressure 
measurement at these conditions indicate that reattachment of the mixing layer 
to the aeroshell surface is occurring creating a separated region bounded by 
the aeroshell surface, jet boundary and mixing layer. 


A comparison of theory and experiment is made in Figure 108 for = 1.5 

and C T = 4.0. At this thrusting coefficient, the aeroshell is immersed in a 
constant pressure separated flow region whose pressure is equal to 55 percent 
of the free stream static pressure and wake type flow exists. 

Another comparison of theory and experiment is made in Figure 109 for 
= 2.0 and = 6.0. A comparison in graphical form is presented in Figure 
110. In all the preceding comparisons, the shadowgraph flow field geometry is 
within 10% of that predicted analytically. 
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60 THREE ENGINE AEROSHELL AIR NOZZLE 





60 THREE ENGINE AEROSHELL AIR NOZZLE 2 



1 28 


Figure 94. Pitching Moment Coefficient with Engine 2 and Engine 3 Throttled 

Three Engine 60 Aeroshell - M = 2. 0 
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Figure 95 Throttling Effectiveness in Pitch, 
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Figure 100 Total Axial Force Coefficient with Helium Exhaust Flow, M -1.5. 
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Figure 101 Total Axial Force Coefficie 
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Figure 102 Circumferential Pressure Distribution - Three Engine 60° Aeroshell 
With Helium Exhaust Flow, M = 1.5, C m = 0. 3. 
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Figure 104 Circumferential Pressure Distribution - Three Engine 60 Aeroshell 
With Helium Exhaust Flow, M =2.0, C = 0.3. 
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Figure 106 Schematic of Analysis. 










Figure 107 Comparison of Theory and Experiment on Single 

Nozzle 60° Aeroshell. 


141 













1 igure 109 Comparison oi Theory and Experiment on 
Single Nozzle 60° Aeroshell. 
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4. CONCLUSIONS 


The following conclusions may be drawn from the above summarized 
investigations . 

1. Mars lander conditions can be simulated in a wind tunnel. Simulation 
of both the variation of thrusting coefficient, C^, with Mach number, 

and nozzle parameters with different free stream and engine specific 
heat ratios was achieved. 

2. The single nozzle floxv field exhibits two regimes of jet penetration. 
At low thrusting coefficients, long jet penetration occurs and the jet 
total head decays by mixing. At larger thrusting coefficients, a short, 
blunt jet-flow interaction occurs and jet total head decays then by a 
terminal shock wave. 

3. Transition between long jet penetration and blunt jet-flow interaction 
occurs at a fixed ratio of the jet exit to free stream pressure, 

P / , for all supersonic free stream Mach numbers and engine sizes 

j 

tested. Corresponding thrusting coefficients (C^'s) are in the range 
0.5 < C T < 3.0. 

4. In the blunt jet-flow interaction regime, a theoretical analysis 

is presented which predicts the main features of the floxtf pattern quite 
well. The theory locates the terminal shock, jet boundary, interface 
and bow shock wave. 

5. For the single engine configurations, the total retroforce is first 
reduced by applying retrothrust. Then as the thrusting coefficient 
increases (C^ >_ 1) , the total retroforce becomes approximately equal to 
the retrothrust. 


i /, ^ 

~T«/ 



6. For the three engine 60° aeroshell configuration, the total retro- 
force is increased by applying retrothrust. The magnitude of the en- 
largement increases as the free stream Mach number increases and at 

M = 2.0 leads to a total retroforce of twice the retrothrust at C m = 1.0. 
At larger values of thrusting coefficient, the total retroforce levels 
off and eventually (C^ > 3) it becomes approximately equal to the retro- 
thrust. The total axial force of the three engine configuration is 
substantially greater at M ot = 2.0 than that of a single engine aeroshell 
when both operate at the same total retrothrust and <_ 2.0. 

7. For the single engine configuration, the pitching moment curve is 
linear up to angles-of -attack of at least six degrees at all free 
stream Mach numbers and thrusting coefficients tested. Application of 
retrothrust is stabilizing at all Mach numbers for <_ 2.5. 

8. Application of retrothrust to the three engine 60° aeroshell con- 
figuration produces non-linear pitching moment and normal force curves 
at subsonic (M m = 0.6), transonic (M^ = 1.05) and supersonic (M m = 2.0) 
Mach numbers. The amount of nonlinearity increases with increasing 
Mach number. The shape of the pitching moment curve depends on the 
roll-orientation of the pitch plane with respect to the engines . 

9. At transonic and supersonic free stream Mach numbers, a twenty 
percent reduction in the effectiveness of engine throttling for pitch 
controls was found. 

10. The engine exhaust gas composition (air or helium) influences the 
aerodynamic characteristics of the aeroshell-retrorocket system. 

11. The number and location of the engines in a retrorocket-aeroshell 
combination has a strong influence on the stability and drag when 
retrothrust is applied. 
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APPENDIX A 


COMPUTER PROGRAM 
E. Wachsler 


A, I THE MACHINE - PDP-10 

The program was written on the Sanders Associates Time Sharing Computer, 
the Digital Equipment Corporation PDP-10. The required core storage is 
approximately 20K. 

A. 2 THE LANGUAGE - FORTRAN IV 

1 

The program was written in the PDP-10 version of FORTRAN IV . USA Standard 
2 

Fortran is a subset of PDP-10 FORTRAN. For example, mixed mode expressions 

are allowed, but were not used in order to make the program compatible with 

3 4 

IBM 7094 FORTRAN IV, VERSION 13 , or UNIVAC 1108 FORTRAN V . Just about the 
only things not allowed in PDP-10 FOR IV are ENTRY, non-standard RETURNS, and 
T field descriptors. 

A. 3 MODIFICATIONS FOR BATCH PROCESSING ON OTHER THAN PDP-10 COMPILERS 

In order to follow the progress of the iteration schemes, the current 
version of the program does not have a formal output subroutine, but has a 
number of TYPE statements throughout the program. The following items in the 
program would probably have to be changed for other FORTRAN compilers. 

a) Replace TYPE 105, list by WRITE (IOUT, 105), list in a formal 
output subroutine. 

b) Delete the leading 5X or 6X in input (READ) formats. 

c) Alphameric variables (either integer or real) are modulo A5 . 

d) ' (apostrophe) is used as delimiter for Hollerith fields. 
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e) $ (dollar sign) at the end of a format is used to hold the print line. 

f) The free field formats (such as I, 5F) would have to be changed. 

g) INPUT/OUTPUT logical unit assignment as well as the file handling 
calls (IFILE, RELEAS) . are probably incompatible. 

h) The DATE, TIME calls are usually different for each installation. 

i) The FUNCTIONS COTAN, TAN and ERF are included because they were not 
in the PDP-10 library. They should be deleted if they exist in the 
local library. 

A. 4 PROGRAM ELEMENTS 

The program consists of a MAIN program and a long number of FUNCTION 
and SUBROUTINE subprograms . 

The following program elements are used: 

a) Arithmetic operations 

b) Logical and arithmetic IF's 

c) Library functions, sepcifically 

ABS, AMAX1 , FLOAT, MINO , SQRT, SIN, COS, ATAN, 

ASIN (called ARSIN in some systems) and EXP (in ERF only) 

d) BLOCK DATA subprogram, labeled COMMON, CALL EXIT, and the DATA, 
DIMENSION, EXTERNAL, STOP, RETURN and END statements. 

e) READing is from cards and WRITEing is on the printer. 

A. 5 PROGRAM STRUCTURE AND DESCRIPTION 
A. 5.1 Naming Conventions 

In order to facilitate reading, modification and debugging of the 
program, variable names and subscripts were made as mnemonic as possible. 
Furthermore'., double subscripts were used to denote a function of two variables 
or their rhtio. The following examples will clarify the notation. 

WMOL (JET) is the jet molecular weight 
EMACH (INF) is the free stream Mach Number 
A (JET, ITOTAL) is the jet total sound speed 
T (INF, ISTAT) is the free stream static temperature 



RHO (INF, IRATIO) is the ratio of the free stream total to the 

free stream static density. 

P (INF, IPITOT) is the free stream pitot pressure 

ENTHAL (INF, 1) is the free stream total enthalpy 

ENTHAL (JET, 1) is the jet total enthalpy 

ENTHAL (INF, JET) is the ratio H /H, 

5 ' 00 jet 

AR (JEXIT, JSTAR) is the area ratio, jet exit area to jet throat 

area 

A. 5. 2 Input Data 

Input data is read from cards (6 cards required per case) in sub- 
routine READIN. The data structure is set up for convenient input for the 
free flight case (rather than for the wind tunnel case) . 

Card 1: NCAS , UNITIN, UNITOUT (II, IX, 2A5) 

NCAS = 0 terminates the run 

UNITIN, UNITOUT are the names of system of units of the 
input and output data (i.e. CGS, MKS, ENGLISH) 

Card 2: I END (12) 

IEND is the maximum number of complete iteration loops 

Card 3: GAMMA (INF) , WMOL(INF), P(INF, ISTAT) , T(INF, ISTAT) , 

V(INF) (5F10.4) 

Free stream properties - names are self-explanatory 

Card 4: GAMMA ( J ET ) , WMOL(JET), P(JET, I TOTAL ) , 

T (JET , ITOTAL) (4F10.4) 

Jet properties - self-explanatory 

Card 5: AR(JSTAR, 1), AR(JEXIT, 1), THETA (JEXIT) (3F10.4) 

Jet throat area, exit area and nozzle exit (half) angle 

Card 6: AR(JBASE, 1), AR(JFACE, 1), THETA (MOD) (3F10.4) 

Base area of the aeroshell, face area of the aeroshell 
if other than nozzle exit area, aeroshell (half) angle 
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For the wind tunnel case, input should be modified to read in the 
free stream total pressure, total temperature and Mach Number and the cal- 
culation of free stream properties in subroutine PRELIM rearranged. 

A. 5. 3 Generalized Program Flow-Chart 

After the input data has been read and the preliminary calculations 
have been finished, the blunting sphere diameter is calculated with the 
assumption that the dead air pressure is equal to the free stream static pressure. 

If the blunting sphere diameter is less than the aeroshell base 
diameter, the flow geometry is the shoulder attachment case (referred to in 
the program comments as the Two-Dimensional Case). Conversely, the flow 
geometry will be of the wake type (referred to in the program comments as the 
Three-Dimensional Case) . 

A. 5. 3.1 Shoulder Attachment Case 

The dead air pressure is found by iteration: the scheme 

is regula falsi with updating anchors. The dead air pressure is assumed to 
be the geometric mean of the free stream static and pitot pressures. The 
blunting sphere diameter and the location of its center are calculated. The 
geometry of the problem defines the angle a of the conical portion of the 
flow and hence the dead air pressure. 

The dead air enthalpy and concentration are found by 
iteration: the scheme is Newton-Raphson and the derivatives are obtained 

numerically. Hence it is necessary to go through the loop 3 times to update 
the variables. 

The dead air enthalpy and concentration are assumed to be 
the geometric and arithmetic mean, respectively, of the jet and free stream 
properties. In subroutine MIXING, the location of the 2nd interface (between 
the blunting sphere-cone and body) is calculated as well as the mass flows 
entrained along one side of jet boundary and the two interfaces. The merging 
point is reached where the sum of the entrained mass flows equals the jet mass 
flow. 



The merged layer properties are calculated in subroutine 
MERGED. The integration is carried out by a standard Adams-Moulton routine, 
with Ringe-Kutta starting and variable step size (subroutine HPCG) . The 
integration is terminated at the shoulder (the attachment point) and the three 
profile parameters A, ]i, and V associated with the velocity, enthalpy and 
concentration profiles at the attachment point respectively are calculated. 

The method is regula falsi iteration with updating anchor (subroutine PGEW) 
and 8 point Gaussian quadrature of the profiles (subroutine QG8) . 

The separation streamline location is found simularly 
and from it, the recompression pressure. 

A. 5. 3. 2 Wake Flow Case 

The general scheme is very similar to the shoulder attach- 
ment case. Only the differences will be pointed out below. In order to obtain 
wake type flow, the dead air region pressure must be less than the free stream 
static pressure and the sphere-cone tangency point, THETA (NS ) , must occur at 
4> > 90°. Thus the Prandtl-Mayer equation is used to relate local pressure 
and anlge for <j) > 90°. Clearly this is not possible if the Mach Number at 90° 
is less than 1.0 and computation is terminated. 

The dead air pressure is assumed to be equal to half the 
free stream static pressure. Since there is no geometric constraint as in the 
shoulder attachment case, the iteration scheme must solve simultaneously for 
dead air pressure, enthalpy and concentration, hence it is necessary to go 
through the loop 4 times to update the variables. Furthermore, it is not 
known a_ priori when to terminate thfe merged layer integration. This is done 
by a mass bdlance which involves calculating the profiles as the integration 
proceeds along the conical portion of the flow. Integration is terminated 
when the height required to pass the mass flow exceeds the geometrical height 
(in subroutine OUTP) . 

The separation Streamline location is calculated and the 
recompression pressure. This is compared with the static pressure behind the 
oblique shock wave at the wake neck. 
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IP ( IDE AD , 1 S TAT ) ‘ = , IP El 2 , 4 , 1. 8H EnTmAL ( I DEAD , 1 ) ' . 

< G 0 ' C ( IDEAL)) s , E 1 2 , 4 , 6 H AFTER, I 4 , 1 2 H I TEH A f I OnS , , 


„i K CP ~ U 


A- 7 



'/• 14 6 1 0 

0 x 6 2 0 
0 0630 
00 6 4 0 
0 0650 
0 0 6 6 0 

0 0 6 7 0 
0 0 6 $ 0 
00690 
y 0 / y y 
00/10 
!i 0 / 7! 0 
0 Vi 7 3 0 
0 0/4 yj 
007 30 
06J/6 0 
0 0/7 0 
00/80 
00 7 90 ' 
00800 
00810 
006277 
y 06 30 
00840 
7’ 0 8 3 0 
,40 8 60 
0 0 8 7 /J 
00880 
0 0 b 9 0 

009 00 
0 0 9 1 0 
0 0 9 2 0 
0 09 30 
0 0 9 4 0 
14 0 9 3 0 
» (4960 
0 0 9 7 0 
(4 0 9 3 0 
0 0 9 9 2 
0 1 73 0 0 
0101 * 
W 1 0 2 (4 
!:J 10 30 
0 1 0 4 0 

0 10 3 w 
/ 1 0 6 75 
•,41070 

y i w 6 y 
0 i (•■ 9 y 
0 1 1 8 0 
0 1 1 3, y 
01 1.20 
/ ii3 y 

7 1 1 4 0 

0 lip 6 

011 614 
011/0 
■ 1 1 C) 2 

6 3 1 9 13 


CALL KEaDINI I END) 

CALL PRELIM IERRQR) 

1 VPE 13, Cl ,P( ILF, ISTAT) ,P( INF, J P I T 0 T ) , P { Jt F , JT 0 r AU , 

1 PULTiUXin 

13 FORMA r ( • OCT = • , F12 . 3 , / < PI WF , p 0 F , P u J , PE Js * •» IR4E12 , 4 > 

TYP£ 17, T( INF. I ST AT ) , T ( IMF, I T 0 T A L ) , T ( ,J E T , I E X I T ) , T (JET » I T 0 I A L ) 

1/ ? 44.UK • f , T , 1 E 0 , 1 0 J = t » 4 i 1 2 , 2 ) • 

PI- P F 1 T(f’l/Z,f!,P( l M F , J PTRAT ) ) 

PI b=P ( l.\F , I P I TOT ) /PI 
E 6 8 = P rf a C » 4 1 G A M M A ( I N F ) , P T 8 ) 

IMLM8.br. 1,0) GO TO 140 

0 

0 MSWGHsi IMPLIES T H A f THE BEUNTInG SPHERE DlAHTER IS GREATER THAN* Ts 

c base diameter and that the flow is not supersonic at the 
C SPHERE shoulder, 

■ Nswcnn 

GO T 0 13 0 

140 X N U ( M P { ) spKK'U < GAMMA ( INF.) 1. EMS, 1 ER ROR) ' *. — 

Ir ( 1 ERROR . LQ, X) GO TO 10 0 
' XNUXX = XwUUlP J )»CQNV(1, JUNIM) 

T YPE 21, , EMS , X’NUXX 

21 FURMAIC EMS,NU(PI./2) = * »2H0.4,/) 

0 NOTE that the ORIGIN IS AT X ( JF ACE i 1 ) , HENCE X ( 00 ASE , i ) IS NEGATIVE 
130 X^UFACE,1)?0,0 

X \ 08 A SET , a ) S ( R ( JF ACE , 1 ) -R ( 08 ASF , 1 ) ) / T AN < THET A { MOD ) ) 

r* 

V 

C INITIAL GUESSES for the parameters, SPECIFICALLY THE dead air 
g region pressure, ape based on whether the blunting sphere diameter 
C IS GREATER or less than” the base diameter, 

C IN I HE FORMER CASE, P U DEAD , J STAT ) MUST BE LESS THAN P(JNF, ISTAT) 

c and vic:- versa, respectively, 
c 

PUDEAD', ISTAT) =p( INF, I ST at ) 

CALL SPHERE ( I ERROR) 

JM 1ERRQR.LQ, 1) GO TO 100 . 

0 

I > { R ( J S p H E R , J 3 A S E ) < L T , 1,0) GO TO 100 
Ir < WS^CH.LO , Vi) GO TO 170' 
p < I 0 1: A 0 , 1ST A T ) ~ c P c u E 
GO [0 300 

X 7 0 PUOEAD, lSTAT)sp( IMF, lSTAIJ/2,0 
GO TO 193 

13U P( JUEAD, ISTaT ) =SORT(P( [NF, I S T A T ) « P < INF, [PHOT)) 

1 9 » 1 i 1 P U 0 E A l) , ] S T A t ) 

i 1 2 =1.2 « L 1 1 

EH i HAL I 1 P E A 0 , 1 ) = S Q R n PI N T H A L ( I r *F , 1 ) »EM JHAL ( OE T , 1 ) ) 
i 2 i = E ■'J r H A L { I DEAL) el) 

/22 = Z21«(1 , 0 + DFl.f A ) 

C u N C ( 1 DEAD) = 2, 50 
/ 3 1 = C 0 N C ( IDEA D ) 

?32;231« ( 1 , 0 + DEL TA ) . - - 

C 

C IF r He BLUNT I Ms SPHERE DIAMETER IS LESS THAN THE BASE DIAMETER, 

C I HI I Tt- RATION SCHEME CONSISTS OF Tc*0 LOOPS, 

C j HE FIRST L.OOP IS FOR PRESSURE ONLY > d A S E D ON THE GEOMETRIC 
C C Q : SIR A I : ' J T THAI THE BLUNTING CONE IS TANGENT TO" THE BODY 
C AT THE SHOULDER, 

C 

C BEGIN THE DEAD A 1 R PRESSURE ITERATION LOOP, 







© 


012.10 

U 1 2 2 J ■ 
0 12 S0 

vii?A 

(51 2 5 £5 
« 1 2 6 2 
■3 1 2 7 7. 

1 2 a y 
o 1 2 9 v-‘ 
’/) i 3 0 0 

i 3 i & 

o 1. o 2 y 

>. 1337 
£v 13 4 0 

0 i 0 ‘3 0 

y i 3 6 0 

013 70 

0 1 3 8 0 
vi 13 9 0 
v 14 00 
0 1 4 1 0 

014 20 
K 14 0 0 
0 1 4 4 0 
(51420 
0 1 4 6 0 
014 7 0 
£4148 0 
014 9 0 
01b 00 
0121 0 
01220 
012 30 
012 4 0 
0 12 2 0 
0 1 2 6 0 
0 1 2 7 0 
0 1 2 « 0 
01.2 90 
y 1 6 y 0 
y 1 6 1 0 
01020 
0 1 0 3 0 
L 16 4 0 
w 1 6 2 0 


DU. 300 J.= l , \ f.N:Q 

CALL J E ! o C 4- ( X J * Y J » 1 L R R 0 R ) 

lMILKHyli.W, 1 > GO TO 100 • 

C A L/L 3 P h t R'E ( I C R R’ 0 R ) 

1 L ; l 2 k R o » » E o . 1 } GOT 0 1 0 0 
!>’ < p ( J-SPK.tr! * JtHSf; ) , G T , 1 , 020 ) GO TO 1000 

Ir (R( jSPHER, jBASt ) ,LT , 0,92,0) GO TO 2 3 0 

WRirt: ( I 0 U T *228) R ( J S P M E R > 1 ) , K ( JB A$E » 1 > 

G G j 0 X $ 

c 

C CALCULATION or ALPHA FOR R( JSPHER, JUASE) LESS THAN 0,950 , 

C I H L T A ( !>; 6 ) J 3 iv LCLS 3 A R 1 1 Y I, 1 3 S T H A H PI/2 , 

23W X 8 A s ( X ( JCE.1I TR , 1 ) - X( J 9 A S E > t ) >/R ( JOASE , % ) 

YHAR»R( JSPHER. JBaSE.) 

Si'NALf-=( SQRT ( 1 . 0 •*■ X 8 A R » X 9 A R - Y'O A R * y.B A R-) -XBAR* YBAR ) 

1 / (1 ,L + XbAR«XRAR) 

A L P H A s A S I M < S I N A L F ) 

T i"t 1 A ( LG ) "P I / 2 , 0 " ALPHA 

x i ns, J fcXIT )=M JSPHER, JEX! T ) *COS ( THET A ( NS ) ) +X < UCENTR , JEX 1 T ) 
. Y ( mS, JEX I T ) sR < JSPHER, JEX P ) «S 1 N ( THETA (NS ) ) 

7 H P A X 3 A I A R ( R ( J P ! A S E , 1 ) / ( X < . J C E N T R , X ) - X ( J B A S E ,10 ) ) 

THE I A ( PAX ) sR l - TNKAX 

piUYsPF 11 (THETA(nS) ,P( JNF# IPTRAT) ) 

RJOLAU, I ST AT ) =PTRY 
■IM'I.CT, 1) GO TO 250 
F'lispt I 0 L A 0 , JSTATJ-CU 

C P( IDEAL RSTA.T) IS NOB RESET TO THE SECOND GUESS VALUE, 

P U HEAP, IS t AT ) =712 * , ' 

EU TO 300 

2 2G F 1 2 = P ( IL.LAQ, 1ST AT J-212 
G 1 2 = F 1 2 ~ E 1 1 

7l3 = /l2-< 212-711 >»F 12/612 
P ii HEAD, 1ST AT ) =213 

1 T ( A H S ( c 1 3 / / 1 2 - 1 , 0 ) » L T » 5.0E-4) GO TQ 220 
G - . ~ - 

C U P u A f I N G 0 F r H E A N CHOR POJ N TS, 

/1 1-/12 
7.1 2::/ io 
E 1 1 = F 1 2 

300 CONTINUE 
0 ‘ 

c the scheme did rot converge after the maximum number op peratio 
WRITE ( 1 0 U T , 3 '/ ) P( I DEAD, 1ST A ! ) , JEnD 
c; Go BACK TO I HE LEG I Nh I ,G FOR ANOTHER CASE, 

GO 10 ICC 


a i o 6 0 c 



0 1 6 7 V 

c the 

PRESSURE PERATIO' FAS SuCCESSF UL , NO'a E£ SOLVE ITERATIVELY 

© 

ti i o b a 

C FOR 

THE ENTHALPY A NO CONCEU t RAT i ON IN THE DEAD A I R' REGION, 


0 1690 

c 



E 1 / 0 0 

2 2 0 

I i'.' U "• 3 <* I E n U 

© 

01/1 0 


TYKE 28 , 7 ( jTt'KS-S JEX ! T ) , X ( JCENTR , JE X IT ) 


0 1 7 2 0 

23 

7 OR HA i ( * .'XJTEHP/PEJ, XC/HEJs * , 2P11,5) 


o 1 / 3 y 


T 1 PE 31 , H ( jSPHt'R ,1) » R ( jSPHER, jtX I I ) , R ( JSPHER , JB AS E ) 


M 1 / 4 0 

31 

F JR HA I ( » RF , RF /REJiRF /RM = ' , 31 13 , 2 ) 


0 1 / 2 0 


A Lf X * A L P ! ' A 4 C 0 N V ( 1 » I UN IN) 


0 1/60 


T 7 HE 8 2 , 1- ( IDE AO, IS I AT ) 

o 

o 17 7 0 

32 

FUPiA I ( ' FO-'i I P E 1 2 , 4 ) 


01 7 80 


A 1- 1 X " A L P 1 1 A «• C > 5 U V (If I U N I N ) 


o i / y 0 


/ 1 HX = 1 Ufc T A < NO) #COMV (1,1 IJfJ J m ) 

o 

o i y 0 2 


■ / 1 IIY: 1 Hf. T A < US ) 4 0 0 M V (1,1 UN IN ) 


A-9 



• j.Hl'0 , TYPE 41,/THX,2THY 

010213 41 TOHMAf ( ' THETA NO , NS = ' , 2F 10 , 4 ) 

, i y j u c 

01040 c NOW CALCULATE the three CONSTANTS NECESSARY for THE PROPER 

01850 C L I HI 1 t N G bEHAVJQR OF U/UE» H« AND C*t 

(? 018 60 C 

03.870 X E A H = 0 4 0 

01000 XMUa0,0 

(' 01890 XNU Is 0,0 

w 1 9 0 O C 

01910 CALL v/Ga<-*Y0,Y»#VEU2Ol,j!rMTl) 

f 01920 CALL .JGO ( - Y0 , Y0 , VEUHL52 , 2N1 2 ) 

019 30 YAls0 f ij0~HNT2/^NT| 

019 4 0 C 

( O1950 C ENTHAL ( i CEAU f 1 NE ) 50 , 0 F OH CONyfA-lELCE ONLY. 

01960 " EhThAu ( j DEAD * I OF) =0 , 0 

01970 CALL OGBl-YC, Y0#ENT2D»ENTC) 

(■ 01980 Y6'C = U t 0 + ENTHAL( JpEAD* I NT 3 ) /2 , 53 .-HR T3//JNT 1 

O \99 0 C 

020O0 C G 0 N C4-I-D-EA 0 ) ~ 1 , 0— F 0 R CON-YEN FENCE ONLY., — ™. , — — .... 

( 02010 " ' C 0 N C ( 1 IT E A 0 ) 2 1 1 0 • 

02020 CALL QGU(«Y0, V0,CON2O,HNT4) 

0 20 30 Y 8 1 ’ F 0 i 5 0 ” ii M T4/HNT1 

r 02040 C 

C205O TYPE 42,iNTl,2NT2>2NT3 ( 2t<:T4,ENTHAU< IDEAO, INF) ,CQNC< IDEAO) 

02060 42 FORMAT (’ 21i2»3,4=' ,lP4E12,4,/< H» * C*n » , 2EJ2 , 4 ? 

f 02070 TYPE 43,Y!U, YK2,YK3 

02080 43 FORMA ! < ' K1 , 2» 3= » 1 1P3E14 , 6 ) 

02090 C 

C 02100 C RESET C 0 N C ( l D E A D ) TO THE PROPER INPIAL VALUE, 

02110 CONC( I0EAD)=Z3J, 

O2120 C 

£ 02130 (J BEGIN THE ENTHALPY AND CONCENTRATION ITERATION LOOP , 

0 2140 C 

02150 DO 800 1=1, I NO 

( 02160 ENT HAL C 1 DEAD , I NF i-ENT HAL ( I OEAU » 1 ) /ENTHAL ( INF , 1 ) 

02170 C ■- - ~ 

82180 CALL MIX J'NG ( X J , Y J , XI I N , Y1 1 N , X2 I N , Y2 1 M , I ERROR ) 

r 02190 pu ERROR. EQ, X) GO TU 100 

C2200 CALL MEHGL0( iERROR) 

02210 p ( lEHRUR.LQ, 13 GO TO 130 

i 02220 C 

C2230 IMI+2 . EQ, 3M<l+2)/3)) GO TO 600 

02240 I M I * i. , EQ, 3 «< ( I + 1 ) / 3 ) ) GO TO 658 

( 0 2 2 5 M GU TO /(50 

0 22 6 0 C 

022/0 600 P'21 = ENTHAL( IQEAD, 1) “221 

( 02280 ~ F81 = C0N0( IDEAO-E31 

02290 FTNThAH IDEaD,1>=222 

02300 C RESET CONG (IDEAO) TO THE INITIAL VALUE, 

( 02310 C U N C ( J U E A 0 ) - c 3 1 

C2327 GO TO 800 

C233P C ‘ ‘ — ■•■■■• 

02340 650 F 2 2.= E iY T H A L ( I 0 E A D > 1 ) - 2 2 2 

02360 ” F 3 2 s C 0 R C ( i D E A 0 ) " 2 3 1 

02360 G 2 2 = (' 2 2 ~ F 2 1 

f 0 23 70 G 3 2 ~ F 3 2 ~ F 3 1 

023K0 C NOW WF HAVE FRF DERIVATIVES WITH RESPECT TO A CHANGE IN L N T H A L ( IDE A 0 t 

02390 c THE ENThALPY JS RESET TO ? HE FORMER V A 1, 0 E FOR THE NEXT ITERATION SUP 

( O2 4O0 EnTHAL ( I DEAD, i)=221 




02410 
02420 
0 2 4 3 55 
02 44 y 
0 2 4 2 0 
02 4 60 
id 2 4 7 0 
02 4*3 0 
0 2 4 9 0 
y 2 5 a u 
0 2 5 1 0 
02 5 2 0 
0 2 5 3 0 
0 2 5 4 0 
02!? 50 
02560 
02 5 7.0 
025 6 0 
02590 
02600 
0 2 610 
02620 
02630 
0 2 6 4 0 
0- 2 6 5 0 
0 2 6 60 
02670 
02 68 0 
02690 
02700 
73 2 7 1 0 
02/20 
0 2 7 3 65 
0 2 7 4 0 
02 7 50 
0 2 7 6 0 
0 2/70 
542 / 6 0 
02 790 
0 2 8 0 0 
0 2 810 
02820 
0 2 8 3 0 
0 2 8 4 0 
02 8 50 
0 2 8 6 0 
02 8 7 0 
5428854 
0 2890 
02900 
542910 
0 2 9 20 
0 2 9 30 
0 2 9 4 0 
8 2 9 5 0 
02 9 6 0 
0 2 9 7 0 
0 2 9 h y 
0 2 9 9 0 

.5 0 v! ! : 


C U N C { I DEAD) = 232 
: gu ro 000 
c 

700 P 2 3 = E w T H A L ( I 0 £ A D , 1 j - i 2 1 

F 8 3 = C 0 N G ( lDE4D).-232 
C> 2 3 - F 2 3 - F 2 1 
G 8 3 = p 3 3 - F 3 1 

c now. we Have the derivatives with respect to a change in cqncud'ead) 

X •-) A C Q 6 u G 2 2 « G 3 3 - G 2 3 * G 3 2 

1 h \ ABS ( XJ ACOU ) , GT f XME-35) GO TO 710 
WHITE UOUT . 730 ) I 

GO TO 100 

C NO SOLUTION IS POSSIBLE IF THE JACOBIAN OF THE DERIVATIVES VANISHES 
7\0 223*222- (Z22-j?21)«(F22«G33-F32*G23)/X JACOB 

■ 238sg32-(232-£31)-»(F334G22^E23»G32)/XjAC0li 
C 

TYPE 73, F2l,F31 

73 FORMA H'0H,C RES I D , = ' » 3.P2E12 , 4 ) 

TYPE 75,223,7.33 

75 FORMAT S - THE NEW VAU OF H , C= « , 1P2E*2 , 4 * / ) 

ERTHAU I DEAD ? 1 ) =223 
C 0 N C ( I 0 E A 0 ) = £ 3 3 

I F(A 8 5(223/221-1,0) <GT , 5.0E-4) GO TO 7 20 
IH Af3S(H33/23!~l,0> .LT, 5.0E-4) GO TO 620 
C 

C SAVING AND RESETTING OF VALUES FOR THE NEXT ITERATION, 

7 20 221=223 

'2 2 2 = 2 2 1 ft ( 1 , 0 + 0 E L T A ) 

281-253 

2 5 2 - / 5 i « ( 1 , 0 + D E L T A ? 

830 CONTINUE 

C 

c the scheme did not converge after the maximum number of iterations, 

WRITE I 1001,808) ENTHAt,( IOEADd? ,CONC( 10EAD? , lENO 
0 GO BACK TO THE BEGINNING FOR ANOTHER CASE, 

GO' TO '100 
C 

c the enthalpy and concentration iteration WAS SUCCESSFUL, now we 
C CALCULAlt THE MERGING STREAMLINE VELOCITY, ENTHALPY and MACH' NUMBER, 

c 

820 U U F. = V E I, 2 D 1 { Y S S L ) 

USSL=UUE«UES»V ( INF) 

HSSl = EHT h,AL < INF, 1? »ENT20( YSSL?/UUE 
C 0 N S S L ~ C 0 N 2 D ( YSSL ) /UUE 

CPSSL = CONSSL»CP(JET) + (1,0-CDNSSL?»CP( INF) 

CVSSLsCONSSL » ( CP ( JE r ) -RUN 1 V/WMOL ( JET ) ) + (1 , 0-CONSSU ) 

1 « ( Cp ( i NF ) -RU MV/ w MOL I I ME ) ) 

GKSSL=vPSSL/CVSSL 

WMSSL = 1 , 0/ ( CONSSU/WMOU ( JE T ) + ( l , 0-CONSSU ) /WMQL (If F ) ) 

E MSSL *" USSU tt S ;R T ( WMSSL»CPSSL/ ( GMSSL »RUiN { V» ( HS.SL 
1 -w',50iUSSU»USSU) > ) 

P H “ P ( I DEAD | I S T A T ) P R A T 1 0 ( G M S S L , E M SSL) 

C 

TYPE ol,USSL ,MSSL*EMSSi a ,GHSSU»PR 
01 FORMA ! (' U S S t, , H S S L , M S S L i G f i S S L , P R s ’ » / 1 H . 1P5E 12 , 4 , / } 

CALL OUTPUT 

C GO BACK I 0 T H E 13 E G J N N l N G F Q K A W U TREK CAS E , 

GO TO 100 

C A-ll 

at, p,es, 9, *«,**»«**• 


6 * ? « * V « • * 




03010 

C 



03020 

C 

CAUCULA ! J ON FOR BLUNTING SPHERE DIAMETER GREATER THAN THE 

-fl 

03030 

C 

BASE DIAMETER, 


0 3240 

C 



0 3 0 5 0 

n 

V 

THE ITERATION SCHEME CONSISTS OK THE SIMULTANEOUS SOLUTION 


0 3 0 6 3 

c 

OF ALL iHREt VARIABLES, NAMELY PRESSURE, ENTHALPY A NO CONCtNTHAT I i\ 


0 3 w / 0 

c 

IN 1 HE DEAD AIR REGION, 


0 3 0 8 0 

c 


<iS 

0 3 0 9 « 


L083 212=211* (1,0+DELTA) 


0 310 0 


IinU = 4»IEND 


03110 

c 



0 3 1 2 0 

U 

NON CALCULAIE the three CONSTANTS NECESSARY FOR The proper 


03130 

c 

limiting behavior of u/ue, h* and c*, 


0 3140 

c 


v ) 

0 3150 


XLAH=y , 8 


03160 


X M U " 0 i 0 


0317 0 


XNyi=0,0 

s 

03180 

c 



0 8190 


CALL CI6B(0,0»2,0*Y0, VEL301»ZNfl) 


03200 


CALL OGS ( 0 , 0 , Z » 0« Y0 # VEL3D2 » ZN I 2 ) 


03210 


YR1=0 .30-2NT2/2NT1 


03 2 20 

c 



0 32 30 

c 

ENTHAL(IDEAO»INF)s0.0 for CONVENIENCE ONLY, 


032 4 0 


E N t H A L ( I DEAD, INF) =0,0 


03250 


CALL UGti ( 0 , 0 , 2 , 0 » Y 0 , E NT 3D » HN T 3 ) 


03260 


Y R 2 = ( i , 0 * E N T H A L ( I DEAD ? INF) ) /2 ^0-ZWT3/ZNTX 


032/0 

c 



032 80 

c 

CONG UOt AD) 3l,0 FOR CONVENIENCE ONLY, 


03290 


CUNCI IDE AD) = 1,0 " " • 

j 

03300 


CALL W G 8 (0,0,2 ,0#Y0, C0hl30t ZNTA ) 


0331 0 


YR3=0 , 58-XNT4/ENT1 


0 3 3 2 0 

c 



03330 


TTPE 4 2 * 2 N Tt , H N T 2 , / N T 3 , / N T 4 , F N T H A L ( I D E A D , JNF) ,CONC( I DEAD ) 


03340 


TYPE 4 3 , Y K 1 » Y K 2 » Y K 3 


03350 

c 

BEGIN THE ITERATION LOOP FOR THE PRESS URL, ENTHALPY AND CONCENTRATION 


03360 

c 

IN THE DEAD MR REGION, ' 


033/0 

c 



0 3 3 8 0 

G 

RESET CONC(JDEAD) TO THE PROPER INITIAL VALUE, 


03390 


C’0NC< i DEAD) =231 


0 3 4 0 3 

G 



034 10 


DO 1880 1=1, I NO 

,j) 

8 3 4 2 0 


ENTHAU IDEAD, I HF ) =LNT HAU I DEAD * 1 ) /ENTHAL ( I NF , 1 ) 


0 3 4 3 0 


IK ( I ,EQ, 1) GO TO 1 100 


034 4 8 


CALL OLfSCK ( XJ, Y,J, IEKHOR) 

.{J 

8 3 4 50 


IF ( IEHRfjH , EQ , 1 ) GO TO 100 


8 3 4 6 0 


CALL SPHERE U ERROR) 


0 3 4 / 8 


IK( 1 ERROR. EO, 1) GO TO 100 

j 

0 0 4 6 3 

G 



0 3 4 9 0 


IT (RtjSPhERp JBASE) ,CT. 1.830) GO TO 1100 


8 338 0 


WRITE (I OUT. 228) R ( U S P H £ R » 1 ) , K ( U 3 A S E , 1 > 

) 

03310 


GO TO 100 ’ - - — 


8332 0 

C 



■A 3 3 3 8 

G 

CALCULATION ok alpha For K( JSPHER, JUASE) GREATER THAN 1,030 , 


8 3 3 4 0 

G 

THE TAILS) IS NECESSARILY GREATER THAN PI/2 , 


8 3 3 8 8 


11 PC IK (nSv»CH,EQ, 1) GO TO 12 08 


0 3 5 6 8 


L M T H S = P h A C H ( GAMMA ( t NF ) , P ( 1 NF , IP 1 TOT ) /P ( I DEAD , 1 STA T ) ) 

} 

8 3 3/ 0 


XNU!HS = PhNU( GAMMA ( INF) , £P f HS , I ERROR ) 


'8 0 3 8 y 


l‘r 1 IERRoR,EQ, 1) GO TO 100 


833 90 


AuPHA = X.MJTHS-XNU(NPI ) 

;y 

8 3 6 8 0 . 


GO TO ‘ 1220 


A-12 



03 618 

0 5 6 0 V) 

2 3 6 4 0 

03 6 5 8 
t) 3 6 60 
0 3 6/0 

0 3 6 8 0 

1 i 3 6 9 0 
03/00 
0 3/1 0 

03/2:0 
03/3 0 
03/40 
03/50 
03/60 
03 7/0 
0 3/80 
0 3 7 90 
03800 
03810 
0 3 8 20 
03830 
0 3 8 4 0 
038 5 0 . 
03860 
038/0 
03 8 80 
03890 
0 3 9 0 0 
0 3 910 
03 9 20 
03930 
0 39 4 0 

0 3 9 5 0 
3 3 9 60 
05 9/0 
0 3 9 8 0 
8390 0 
04000 
84 010 
W 4 0 2 0 
0 4 8 30 

8 4 8 4 0 
8 4 8 5 0 
8 4 0 60 
8 4 0 / 0 
8 4 8 8 0 
0 4 0 9 8 
8 4 1 0 0 
0 4 1.1 M 

8 4 12 0 
0 4 180 
!') 4 14 0 
0 4 15 0 
0 4 1 6 0 
0 4 1/8 
4 1.;}0 

4 1 i 0 


1208 ALPHA -0,0 
1 2 28 T h £ T A £ 8 S)=P!/2, 8 + A [„ P H A 

AIKX = ALPHA#CGNV(1» IUMINJ) 

H[HX = l!U:iA(;J8D^CQNVa> I 0 M I N ) 

1 T H Ys 1 HE 1 A c GG ) "• C 0 N V £ 1 , I gw I N ) 

X n u x x = X n y t h s » c o i : v u , i y n i n ) 

TYPE 113, EMTmS, X6UXX , A L a F* X ? HTHX , 2 THY 
113 FORMAT £ ' MHThS , Ml, ALPM, TP £ 0) , IH£ $} - ’ , 5f 9 ,4) 

TYPE 23, X! JfpHSH, Jf.Xl I ) ,X( UCENTR , UEX I T > 

TYPE 51,P( JSPHER, i) » R C J S P H E R , U E X J f ) , R £ JSPHER , JbASE > 

T Y P t, 8 5 , p ( I o t A v , I 3 T A ] } 

X I NS , go X 1 1 j =R £ JSPHEH ,'JEX I T ) »GUS £ THETA ( NS) ) + X ( U C E N T R , J E X ), T ) 

Y £ NS , JEX I T ! =9 £ JSHHE.R , JEX I? ) «S I N ( THETA ( NS ) ) 

I F £ N S w C H , E (5 1 1) GO TO 1820 
C NO FURTHER ITERATIONS are possible ,jf nswch = i , 

0 

C G A L C U L A IE THE WAVE, A M GEE FOR A PLANE OBLIQUE SHOCK RAVE, 
OEfA=WAVE(GAMHA( INK) ,EMTHS f ALPHA, IERROR) 

IF ( J ERROR, EO, 1) GO TO 100 

E H C 5 = t H t H S a S J N £ 8 F, T A ) 

E M C s = t M c 5 » E H G S ~ 1 , 0 

C CALCULATE THE RECOhPFESS JON STATIC PRESSURE, 

P i 5 P< iUEAU, 1ST AT )« £ 1 » 8*2 , 0*GABMA £ JNF ) *EMCS/ < GAMMA < INF > + 1,3) ) 
B E t T b E T A 1f C 0 V ( 1 ? I IJ N I N ) 

TYPE 1 2 7 ,B E T T » P T 

127 FORMAT £ ' BETA , PT= ' , F18 , 4 , 1PE12 , 4 ) 

C 

CALL ri I X I NG ( X J , Y J , XI I N , Y1 1 N , X2 J N , Y2 I K , I ERROR ) 

IT £ IERRQH ,EQ , 1 5 GO 70 100 
CALL MERGE 2 ( I ERROR) 

IT ( I E H R 0 R i E 9 , 15 GO TO 100 

C 

U U C = y E 1. 2 D 1 £ YSSL'-YO 5 

U S S e = 0 U e U E S # V ( I N T ) . . 

H S S u - E N | HAL ( I NF , 1 ) # E N T 2 0 ( Y S S L - Y 0 5 / U U E 
C 0 N S S L £ G 0 N 2 0 £ YSS L ~ Y 0 > /DUE 
C P S S L •" C 0 n S S L * C P £ U E T ) + £ 1 e 8 ” C 0 M 3 S L ) * C P £ INF) 

CVSSL"CQNSS1.4(CP( JLT)PrUNJ V/WHOLC JE T) >*u,b-cqnssl> 

1 # ( CP U NF ) ■“•RUN I V/ WfiOL < I NF ) ) 

G!-iSSL = CPSSL/CVSSL 

WMSSL-n , 0/ ( CilNSSL/WHOL ( JET) + (1, 0-CONS. SL ) /WMQL { \ N'F ) ) 

EHSSL = USSL»S',JRT ( WhSSi.«CPSSL/ £ GMSSU«UN l V» ( HSSl 

i •M.ux^usGunissL) > >’ 

PRSP( I 0 1 A 0 i ISTAT)»pRATlO(GMSSL,EMSSL) 

a 

type 81 , USSL , HSSl , EMSSL , GHSSL , PR 
IT £1+3 , E Q ! 4 « ( ( I + 3 ) / 4 ) 5 GO TO 1500 
lFU+2 ,E0, 4^£ £ I+25/4) 5 GO TO 1558 
I M J + 1 ,EQ, 4«((PD/4)5 GO TO 16.80 
G 0 ' T 0 16 5 8 
U 

1308 F 1 1 = p i ” P R 

F21SEHTHAI ( [DEAD, 1 ) -M21 
F 3 1 = C 0 N C ( 1 U C A 0 ) - 3 3 1 

C RESET ENlHALl I HE AD, 1) ANO CO\'C( JDEAO) TO THE INITIAL VALUES, 

p ( j (,) r A 0 -i S t A T ) = 1 1 2 
E iF T HALT JDEAD, 1)=X21 
C uMC ( I OE A 0)=/31 
G U 1 0 1 d K 8 
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0 4 2 1 0 
0 4 220 

342 ,59 

G 4 2 4 8 
0 4 2 5 0 

0 4 2 6 0 
0 4 2 . / 0 
0 4 0 B 0 
0 4 0 9 0 
0 4 0 0 0 
04 310 
0432D 
i? 4 3 30 
0 4 3 4 0 
0 4 3!? 0 
0 4 3 6 0 
!j 4 3 7 0 
04 3 80 
0 4 3.90 
0 4 4 0 0 
04 4j,0 
0 4 4 2 0 
0 4 4 3 0i 
0 4 4 40 
04450 
0 4 4 6 0 
0 4 4 / 0 
04 4$0 
0 4 4 9 0 
0 4 500 
0 4 51,0 
0 4 5 2 0 
0 4 5 3 0 
0 4 5 4 0 

0 4 5 5 0 
0 4 5 60 
0 4 5 / 0 
0 4 5 B 0 
0 4 5 9 0 
0 4" 6 8 8 
0 4 610 
0 4 6 2 0 
8 4 6 3/1 
0 4 6 4 0 
0 4 6 5 u 
8 4 6 6 8 
W 4 6 7 0 
0 4 6 8 V’ 
0 4 6 9 0 
8 4 / 0 if 
0 4/10- 
0 4 / 2 0 
w 4 / 3 8 
8 4 7 4 8 
0 4 / 6 0 
8 4 / 6 3 
0 4 7/ 0 
8 4 / y 8 
0 4 / 6 0 
8 4 f, v. 


1550 F,L2 = PW 3 R 

P22 = EiNTMAK 10F.AD*1)-H21 
FECUND U DEAD J-2-n 
G 1 2 s p j, 2 - F 1 1 
G 2 2 = F 2 2 - F 2 1 
G32 = F\>2"f 31 

C NOW WE HAVE Tml DERIVATIVES WITH RESPECT TO A CHARGE 1 5 P ( IDE AO , [ S( A 
C The PRESSURE A mo CONCERIRAT ion are reset to The FORMER v agues 
C FOR THE RE X I ITERATION STEP, 

PUUEAU, I STAY) =211 
EH THAI-, ( IDEA0,1 >=722 
C UNG( IDE AD) =231 
GO TO 1608 
g 

1600 f .1 3 = p T ” P R 

F«j3 = ENTHAM I DEAD, 1) -222 
P 3 3 = C 0 N C ( I DEAD) -231 

Gl3spi3-FU ‘ 

G 2 3 = F 2 3 - F 2 1 
G33=F33-F31 

C NOW Wp HAVE ThE" DERIVATIVES WITH RESPECT TO A CHANGE IN ENTHAL ( IDEAU 
c THE PRESSURE and enthalpy are RESET TO The porker VALUES 
C FOR THE "NEXT ITERATION STEP? 

PUOEAl), lSTAT)r'2U 
ENTHAL < ICC AD 1 1 ) 

CUlsCUPEAD) =232 
GO TO .1000 
C 

1650 F14-PJ-PR 

f 24 = ehThAE( IDEA0»1)~223, 

P34=COHO( IOEAU) -232 
Gl4 = Fl4-FU 
G24=F24~F21 
G34~P34^P31 

c NOW WE HAVE The DERIVATIVES WITH RESPECT TO a CHANGE in CONC(IOEAD), 
X 3 A C 0 H ", G 1 2 « ( G23«G34-G24«G33) -G2 2 » ( G.l 3 »G3 4 - G14 l«G 33 ) 

1 +032# ( G 1 3 *■ G 2 4 - G 1 4*023) 

C NO SOLUUON IS POSSIBLE IF THE JACOBIAN OF THE DERIVATIVES VANISHES, 
I f ( A B MX. JACOB) i G T * 1,DE~35) GO TO 1.710 
WHITE ( I OUT, /CD) I 
Qu CO 108 

1710 2X3 = 212- ( 712-211 )« ( F 1 2 «■ < G 2 3 * G 3 4 - G 2 4 vt G 3 3 ) 

1 - E 2 3 « l G 1 3 * G 34-014*0 3 3 ) + F34« ( U13*G24-Gl4*G23 ) T/XJACOD 

7 23:; 722 - ( 722-221 ) « ( - F 12* \ G22 « G3 4 - G2 4 « G32 j 
1 + f 23«(G12«G34~G!4»G32j -F 34 * ( G 12»G24 -Q 1 4 »G22 ) )/XjACOB 

733 = 732- ( 732-731 ) * ( F12»( G2 2 »G33-G2 3 wQ3 2 ) 

1 - f 2 3 « ( G 1 2 * G 3 3 - G 1 3 * G 3 2 ) + F34# ( (jl2*G23-Gl3«G22 ) )/X JACOB 

C 

P t I DEAD , I ST AT ) =713 

E I H A U ( I DEAD , 1 ) = 723 

CDNC( i DEAD) =733 ... 

TYPE 1 7 3, F 11, F 2 1,1-31 
173 FORK A 1 ( 1 t'p’E , H » C RES ID= < , 1P3E1.2 , 4 ) 

TYPE 175, 713, 723, 733 

175 p 0 K : 1 Mi 1 THE NEW VAL OF P 0 # H » 0 5 1 , 1 P 3 E 1 2 , 4 , / ) 

[M ABS ( 713/711-1 , P) , GJ , S.OE-4) go JO 1750 
)M Ab'S (723/721-1,0) . GT , 5,0E-4> GO TO 1750 
IF (ABS ( 733/731-1,8) a.T, 5,0E-4) GO TO 1820 

o' 

C SAVING and RESETTING OF VALUES FOR [HE NEXT ITERATION, 
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0 4«'i0 

1 :‘ 4 8 20 

W 4 f J 3 K' 
c 4 ti 4 0 
0 4 » 5 0 
W 4 6 6 0 

0 4 >i 7 7 
y' 4 3 3 0 

K '1 B 9 0 
0 4 9 0 0 
0 4 9 j. 0 
4 y 2 0 
M 4 9 3 0 
0 4 y 4 0 
;v 4 9 'j 0 
0 4 9 6 0 
0 A y 7 a 
0 4 9 8 0 
0 4 y 9 0 
0 9 0 0 0 
0 9010 
0 3 0 2 0 
0 5 0 3 0 
0 9 0 4 0 
•6 9 0 5 0 
0 9 0 6 0 
0 9070 
W 9 M 6 0 
' ii 9 0 90 
09100 
0 9 1 1 0 
£9120 
0 913 0 
0 9 1 4 0 
0 9 1 9 0 
fc 916 0 
09170 
0 91 8 0 
0 9 1 9 0 
0 9 2 £■) 0 
</, 9 2 i y 
0 9 2 2 0 
09230 
0 9 2 4 0 
0 9 2 9 0 
0 9 2 6 0 
092/0 
0 9 2 8 0 
0 9 2 9 14 
119300 
0 9 3 1 0 
0 9 o 2 fci 
0 9 3 3 0 
0 9 3 4 0 
» 9 3 9 1 j 
0 9 3 6 0 
0 9 3 / 0 

2 9 3 >j 2. 

V) 9 3 y 
;■) 9 <5 [' 


1790 '211 = 713 

*l2 = Hll*U,vJ + 0ELTAJ 
221=223 

/.22-Z21# ( 1 , 0 + DELTA) 

231=733 

7 8 2 = 7 3 1 * ( 1 , O i DELTA) 

1800 CONTINUE 
C 

c r he. scheme oiu hot converge after the maximum number ok iterations, 

WRITE (1001,1008) H( ICE AIT l S T A T ) , ENT m AL U UE AD , t > , 

1 C G 3 C ( l U t A U ) i IE N D 

C U 0 S3 A C K 10 THE f> L G \ N 1 ;* G Y 0 R A s ’ OTHER CASE, 

go ro i m 
c 

1820 CALL OUTPUT 

c 

C GO BACK TO THE BEGINNING FOR ANOTHER CASE, 
go ro too 

C ••••'■ 

S I Op 
E NO 

c 


c 


Q 

c 

c 

c 


G 

C 

c 

G 

i; 


c 

c 

c 


BLOCK PAT A 

sets up the common blocks and initializes some of its values, 

IN PARTICULAR, IT SPECIFIES THE I/O CONVERSION FACTORS AND SETS 
UP THE CORRESPONDENCE BETWEEN SUBSCRIPT NAME-S AGO SUBSCR JPT~ VALUES , 

cummon/cqnsts/pi , RUN IV 

COMHOim/CONE AC/CON V UP, A), UN ( 4 ) , 1 UN IN# I U.\'GUT 

c U M M 0 H / I o E N T / I 0 E A 0 | I N F , J E ! , U T E R M , L A V E R , M I X , M J d 0 Y , M U N 1 , M 2 1 N T , 
1 ItXlT, IP 1 TOT # 1 1< A T l 0 # ISTAT; J TOTAL, I ‘HERAT, IPTRAI , JPETRN* 

C 0 M M 0 N/ JOE .4 T / J B A S L , J C E N T R , J E X I T , J F A C E i J S P H E R , J S J A R , 

1 J 1 EKSci , KA X , MERGE , MOO , NO , HP I , MS • 

CUMMOim/PAGE/UA T ( 4 ) 

COMMON/ AERO/ a (10,7) , CU,COHC(1.0> ,CP(10> , C T #EMACH( 10) , 

1 EiNTHAL (10,7) f GAMMA ( 10 ) , P <ie , 7 ) , Q ( IB ) , 

2 R H 0 ( 1 0 , / ) » T ( 1 0 , 7 ) , V < 1 0 ) , LOOT < 10# 7 ) , WMQL (!» ) 

CUHiiOH/GEOr-/ ALPHA# AR ( 14 , 14 ) , R ( 14 , 14.) , 

1 |HE I A (14) , x (14,14) | Y ( 14 , 1 ? < ) , X NO (14) 

C 6 H H 0 .4 / R 0 U T / S S W C H » C A P P A , R !-! 0 E S , U E S , X B A R ! # X K # X L A p , Y 0 # V S S L 
CUMMOn/ 72 I ivT/ZNU , / M2 , If NT 3# /NT 4, XMU, X‘'HU » Y K 1 » Y K 2 » Y K 3 » Y S S ( 9 ) 

DATA PI, RUT- IV /3 , 141992698 , 8314 , 30/ 

THE N E X ! ' P A I A SUTEKEMT SPECIFIES 3 "SETS OF CONVERSION FACTORS, 

The sequence 1 , 2 , 0 , 4 , 9 , 6, 7 corresponds to the variables 

A ,\j G | E , AREA, UEnS 1 TY, PRESSURE , TEMPERA I ORE# VElqCJT Y ANO MOLECULAR 
WEIGHT, RtSPECl 1VELY, 

I Hfc ENGL 1ST: UnJTS ARE F EE T , SLUGS/ F T » »3 » PS I , rjEG , R , , AND LBS/LBS^MOLF 
DAI A ( CONV ( 1 » J > , J = 1 , 4 ) / 4 * 9 7 ,299779313/7 

1 ( C 0 V ( I , 1 ) , I - 2 , 1 / ) / 9 ^ 1 * 0 / , 

2 ( GUuy U , 2 ) # I-2#1J) /l , i’E-4 , i , uE + 3 , / , K-i» 1 , !-J # fc> , 010 , 4*1 ,W/» 

3 (CONVU ,3) , 1=2,10) /O, 392903/4, 919,3790, 6894, /97p; 

4 C • 995399999 ,2.3 0 4 o , 4 * 1 , 0 / 

DATA (UM I ) ,1=1,4) /9HMKS, , 9hCGS. , SHEngL » » ^MOTHER/ 

NOTE THAI THE SUBSCRIPT IEXIT HAS THE SAME VALUE AS ISTAT, AND THAT 
I H t s U 0 3 C R l H T 1 ( u ^ ) I s S A V L I) H 0 R U I ME U S I 0 N E 0 V a |_ 1J E S , 

ALSO N 0 ! L THAI THE SURSCRIPTS J TERM ’ ANO JTERSH REFER TO THE SAME 

LOCATION, HUT HAVE DIFFERENT 'VALUES, 
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0 5-1 J.0 
S'. 3 4 2 o 
0 3 4 30 
0 15 4 4 0 
0 0 4 5 0 
0 0 4 6 0 
v) 2 4 7 w 

f 0 4 y 0 
0 *5 4 9 0 
0 15 3 0 0 
V: 9 '5 1 0 
0 3 !!$ 2 0 
0’ 3 3 ,4 0 
0 3 '3 4 0 
g '3 3 3 W 
'/? 1-3 1? 6 0 
y 9 2 7 0 
0 9 3 B 3 
0 M ‘3 9 0 
y 4 6 y 0 
0 9 6 1 0 
0 ’3 6 2 0 
89630 
0964 0 
0 3 6 9 0 

0 9 6 6 <4 
0 9 6/0 
0 9 6 0 0 
Sy 9 6 9 !<i 
0 9 / 0 0 
0 9/10 
09/20 
0 9/3 0 
0 9/40 
09/90 
14 9 / 6 0 
0 9/'/ 0 
« 9 7 80 
« 9 / 9 » 
0 9 u y 0 
0 98j,0 
fi 9 8 2B 
0 9 B 3 M 
0 9 8 4 0 
!'■ 9 6 3 0 
0 9 8 6 0 
0 9 8 7 0 
038 80 
!/: y y y y 
8 9 9 0 2 
0, h y 1 y 
y 9 y 2 0 
1 3 9 3 ;H 
9 V 4 3 
y 3 V ; ; y'i 
4 3 V 6 1:' 
/ 9 v / /, 
y. 8 7 8 8 
9 y y v: 
Vi 6 l 1 '/ 0 


DATA IDEM), TF, JE f , J T £ R W , U A YE« » M I X , M JBDy , Ml J ,\> T , M2 I NT , 
1 JhXIT, IP l TOT , IRA! IQ# I S T AT ► I TOTAL, InFPAT, IPTRA T # JRETRN 
.2 / 2 , 3 , 4 f 9 , 6 ; / ; 8 * 9 , 1 0 , 4, 2/3, 4, 9, 6, 7,7./ 

D A F A, j B ASK | J 0 E IT T R * J E X IT , UF_ACE , U S P H E R , J 3 T AH , 

1 J i ERSH j hAX » MERGE , MOD , NO » KB [ , NS ' 

2 /2, 3, 4, 3, 8, 7, 8, 9,1 3 , 1 1 1 1 2 ,13# 1 4 / 

E *N D 


G , 
C 

C 

c 

Q 

c 

c 

0 

c 


0 


m 

L_v 

t; 

r; 

c 




SUB ROUT | ,\E H E A U I N ( I END) 

REAPS IW F ME INPUT DATA ADD CONVERTS IT, 

ANGLES ARE INPUT AND OUTPUT IN DEGRt.ES , CARR JED IN RADIANS WITHIN THE 
PROGRAM. 

INPUT a no OUTPUT hay BE IN ENGLISH, CGS, MKS # OR OTHER -UNITS# 
out HKS. units are used within the' program, 

C U N M 0 iN / U 0 N F A C / 0 0 N V ( 1 0 , 4 ) , UN ( 4 ) , IUNIN, lUNQ.UT 

c u i H ON/ I D E \ T / J D E A U , I -N F , U E T , J T E N M , L A Y E R »MJX , M J B 0 Y , M 1 1 N f , M 2 I N T , 
x I L x I T # I PITOT , 1 K A T I 0 # l ST AT # I T 0 I A L , INFRAT, IPTRA I » JRETRN 
COMMON/ UDEN.T/ JBASE, JCENTR# UEX 1 T# JFACE , USPhEH , J S TAR# 

X . j : f ERSH , M A X , MERGE , HOD , Np * NP 1 , NS 
C U M i 1 0 1 ■■! / P A G £ / D A T ( 4 ) 

'COMMON/ AERO/ A (10 » 1 ) » CO # CONC ( 10 ) #CP(1P> # CT # EMACH { 10 > i 

1 Eh TiFAL (10 #'/), G.AMhA TIP ) # P ( 10 , 7 ) , Q (10 ) , 

2 RHO ( IP , 7 ) , T ( 1 M , 7 ) , V ( 10 ) , WUOT ( 10 , 7 ), WOOL ( J,U ) 

CO'MHOn/GF.OH/ALPHA A AR ( 1 4 > 14 ) # R ( 1 4 , 14 ) , 

1 T H r. r A ( 1 4 ) , X ( i 4 , 14 ) , Y ( 1 4 ,1 4 ) , X N U ( 1 4 ) 

110 FORMAT ( 1 R 1 # 6 Y.# 12 HRE.TRO-ROCKET» 10 Xi 2 A 5 , 4 X#A 3 , 1 AX, 4 HPAGE#F 3 , 0 ,/) 
120 FUH'UA ! ! 6 X , 1 1 , IX , 2 A 9 ) 

123 FORMAT ( 29 H 0 EUD OF INPUT DATA A NO OF RUN,/) 

i' 3 B FORMA t ( 33 UZTME NAME OF THE SYSTEM OF UNITS ,A 5 > 

1 7 / H IS' NOT PROPERLY SPECIFIED',,/) 

195 FORMAT ( 12 H I' PUT IS I'T , A 9 , 17 H SYSTEM OF UNITS, ) 

17 3 FORMAT ( 14 H OUTPUT IS IN ,A 5 , 1 '/H SYSTEM OF UNITS, ) 

190 F o K h A 'i ( 6 X , I ) 

191 FORMAT ( 29 H THE MAX , NO, OF ITERATIONS =,H,/ 

1 1 H l- , 1 0 X , 2 X H I m A G E OF. I N PUT CARDS,,/) 

220 FORMA I ( 6 X, 5 F) 

22.1 FOR® A f ( 1 H , 5112 , 4 ) 

2/0 F UR II A 1 ( 6 X # 4F ) 

271 F 0 K H A I (19 # 411 . 2 , 4 ) 

310 F 0 K h A I ( 6 X , 3 F ) 

111 rUi'UAldl , 3 F 1 2 , 4 ) 

I il = 26 
J 0 U T = 6 

10 / WRITE ( 1 OUT , 117 ) ( DAT ( J ) , l=l# 4 ) 

DAT ( 4 ) s D A I ( 4 ) +1 , 0 

READ IN INPUT AFT' OUTPUT SYSTEM OF UNITS, NCAS = 0 IS USED TO 
Jerk 1 NAIF- THE Ht.!H, 

H t A 0 l I 1 , 1 2 / ) M CAS»U N I T I N , u H 1 OUT 

J i ( NCAS , NE , D ) GO TO 130 

Vv 8 1 T C I I o u T , 1 1 0 ) ( D A T < J ) , 1 = 1 , 4 ) 

Will i E (I GUT, 123 ) 
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M 6 0 1 {•) 



CALL RELf.AS ( I I N > 

0 6 0 g 0 

'■6 6 0 3 0 

c 


CALL E.XJT 

0 6 0 4 0 


130 

QU 14» i “ 1 f 4 

0 6 0 5 0 



I MUM 11 j:- • ,E'},UN( I ) )' G 0 TO 150 

0 6 ! 3 6 0 


1 4 3 

CONTINUE 

V- 6 0 7 0 



WHITE (I OUT, j.38) UNITIN' 

0 6 0 50 



GO TO 102 

0 6 K 9 iJ 


152 

I ON 1M= j 

0 6 1 0 0 



h RITE U OuT, 155) U N ( I UNI N > 

U 6 .1 1 0 
0 612 k5 

c 


-DU 160 1=1,. 4 

0 6 1 3 Yj 



I (■ < UN 1 OUT , f. Q , UN { I ) ) GO TO 170 

0 614 0 


1 6 1 

COOT I t'i U E 

10 6150 



WRITE (I OUT #136) UN I OUT 

Vi 616 0 



GO ID 100 . 

0 617 0 


170 

I U N OUT “I 

0 6180 



WHITE U OUT >175 5 UMIUNQUT) 

0 6 1 9 0 

c 



0 62 0 0 

c 

I END 

is the maximum number or it era nous, but no more than jo , 

0 '6 2 1 0 



READ ( I i!> » i'T ) I END 

K6220 



itwo=MN0( i end , 30 ) 

0 6 2 3 0 



WHITE U OUT, 191) 1 E N D 

0 6 2 4 0 

c 



0 6 2 5 .0 

c 

HEAD 

IN T.hE FREE STREAM PROPERTIES, 

0 6 26 0 



READ ( l IN, 220 ) GAMMA ( 1 OF ) t WMOL ( J MF ) , P ( 1 NF , 1 ST AT ) , T ( J NF , ] ST AT ) , 

0 6 2 7 0 


1 

V ( INF) 

0 6 2 8 0 



WHITE ( J 0 U T >221) GAMMA ( INK) ,WMOL< INF ) ,P( INF , | b> T A T > , 

0 6290 


1 

T ( 1 \ F , 1ST AT) . V( INF ) 

0- 6 3 0 0 



WOOL ( i N F ) =WHOL ( I OF ) »CONV (7.1 UN I N ) 

0 6 3 1 0 



p( Inf, I b T A T ) = P ( INF, I S T A T )»C0NV(4, I UN I N > 

06320 



T t INF » I ST AT ) = T ( IMF , J S T AT ) «CONV ( 5, I UN I N > 

0 6 3 3 0 



V( I NF ) “V ( I U F ) * 0 0 ;'•) V ( 6 , I UN IN) 

0 6 3 4 0 

c 



0 6 3 5 0 

c 

HEAD 

JM The JET PROPERTIES, 

ii 6 3 6 0 



READ III N .27- ) G A M U A t JET) , WMOL ( JET) ,P( JET, l TOTAL ) ,T < JtT , l TOT AL 

0 6 3 7 0 



WHITE ( i CUT, 2 71) GAMMA (JET ) , •■< y ' 0 L ( J E T ) , P ( J t T , I T 0 T A L > , T ( JET , 

V> 6 3 8 !5 


1 

I 1 otal > 

0 6 3 V 0 



WMOl. ( JET ) -V.TOU JET ) » DON V ( / , IIjNJN) 

yj 6 4 3 0 



p( JET, 1 1 Q J /X L )‘-P( JET, I TOTAL) # 0 0 i\ V ( 4 , IUNIN) 

0 6 41 0 



T ( JET , I 1 01 AL ) “1 < JET, I f Or AL ) »C0NV (5, I U N I N ) 

7; 6 4 2 0 

c 



0 6 4 3 0 

c 

REA 0 

IN THE JET GEOMETRY . 

K 6 4 4 0 



R t A U tllN.il 2 ) AK( JSTAK. 1) , AH( JEXIT. 1 ) > T M E T A ( J L X I T ) 

0 6 4 5 {0 



K K l FE: ( I OU T , 311 3 A!< ( JS T A R , 1 ) , A N < JE X IT , 1 ) , 1 HE T A ( JE X |T ) 

2 6 4 6 K 



AH < OS 1 A R , 1 ) " A R ( J S T A H , 1 ) <H)QN V ( 2 , \ UN I N ) 

M 6 4 7 3 



AH( JExn ,1)SAP( JEXIT .1)^00 W y ( 2 , I UN IN) 

0 6 4 H 0 



L 1 A < JE X IT ) = T ME T A ( JE X J T ) / COM V ( 1 , 1 UM 1 N ) 

0' 6 4 9 U 
065 0 3 

c 

c 

READ 

I ; i the model geokeiky, 

0 6 5 1 0 



Ft Ajj ( I I » .53 ; ) AH ( OLTASE . 1 > , AH ( JF AGE , 1 ) . fUFIT A ( MOD ) 

0 6 5 2 W 



WHITE ( I OUT, 311) Axf JHASE.J ) , AR( JF aCE,1) , THETA (MOO) 

0 6 6 3 0 



A h ( j ! ; a S E t 1 ) ~ A R ( J B A S E » 1 ) G 01- 7(2. J (J N 1 i\j ) 

2 6 5 4 2 



A h ( J FACE , 1 ) = A R ( J F A C F , 1 3 » C U N V ( 2 » I »J N I N ) 

K 6 5 5 2 



AH ( OF aCL , 1 ) =AHA XI ( A R ( JF ACT; , 1 ) * A R ( JEX ! T » 1) ) 

0 6 5 6 0 

c 

THE 

ABOVE CORRECTS FOK POSSIBLE INPUT ERROR, THE MODEL FACE RADIOS 

0 6 5 7 3 

G 

rijs r 

BE Ar LEAST EQUAL 10 THE JL T NU3£|,E EX I T l< AU J US , 

V ’ fj :.■> 4; i . 



I H t. T A ( M i , o ) = T M E T A ( M 0 0 ) / C 0 N V (1,1 U N I M ) 

. ’■ f f . -, ■ 



A-17 

t • i j 


A-17 


V 6 6 1 0 
P6 62P 
0 6 6 3 J 
'4 6 6 4 0 
t'i 6 6 5 9 
0 6 6 6 0 
0 b 6 7 0 
0 6 6 B 0 
fci 6 6 9 0 
6 / 0 kl 
0 6 71 0 
16/ 20 
vi 6/3t? 
0 6 / 4 0 
06 7 5>(!) 
067 63 
0 6/70 
06 7 00 
0 6 7 9 0 
fc ' 6 600 
0 6 6 .1 0 
0 6b?W 
0 60 3 0 
060 4 0 
06 0 50 
0 6 0 6 0 
060 70 
06080 
06690 
06900 
0 6910 
06 920 

06 93 0 
0 6 9 4 3 
0 6 9 5 y 
0 6 9 6 0 
06V 70 
K 6 y 6 0 
06999 

0 / 0 0V' 

0 7 0 1 0 

W 7 H 2 0 
9 / 0 3 0 
0 / 7) 4 3 

0 7 0 5 0 

0 7 0 6 3 

0 1 7 0 ; '/■ 
0/060 
3 7 0 9 9 

07 10 w 
0 / 11 3 
0 / 1 2 0 
6 713 0 
f / 1 4 N 
X / 1 6 
* / 1 6 
| / 1 / 0 

/ J . 6 u 
6 / 1 9 0 


c 

C 

G 




C 

C 

C 

C 


<? 

c 


G 

G 


SM8R0UT I tv E PREL I M U ERROR ) 

THIS SUBROUTINE CALCULATES FREE STREAM, JET A, MO OTHER PROPERTIES 
WHIC H A R l B A 3 1 D 0 N T l ! Z I N P U T DAT A A N t) W H I C H RE M A | N UNCHANGED 
T H R 0 U (j i j 0 0 I TME PROGRAM [OR EACH SET UF INPUT DATA, 

C U K M 0 h / C 0 N STS/P 1 , KUNI V 

C u I : M o (V / i 0 E N T / I DEAD j I NT , JE T , JT E H M , L A Y r R , M I X , M J B 0 Y , M 1 1 N T , M 2 1 v r , 

i iexit, imitut* i r a r i o , istateitoul, infrat, iptrat , jketrn 

COMMON/ jDEUT/JB A SE, jCEfjTR, JEXiT, jFACE, JSPHER, JSTAR, 

1 J l cRSH , MAX , M ; t K G F , M 0 P ? M D > N P I , N S 

C 5 M l-i C ‘'v / A E R 0 / A ( 1 ?! , /) , CO, CO-vC (1W) , CP(1P) > C T , E M A C H ( IP) , 

1 ENTHAu UC * 7 ) , GAMMA <1B I , P <,UT , 7)‘ , Q ( 10 ) , 

2 RHO ( IP , 7 ) , T < 10 , 7 ) , V ( 10 ) , WUOT (1)5,7) » W M 0 i ( V& ? 

Cu « MO N/GEUM /ALPHA , AR U4 » 14 ) , R U4 , 14 ) , 

1 ThETA ( 14 ) , X ( 1 4 , 14 ) , Y ( 14 , 14 ) , X W U ( 1.4 ) 

TYPE 12 

12 F U R M A 1 ( • V, t .9 T F R I NG PRE L, J M ' ) 

CALCULATION OF THE FREE STREAM PARAMETERS, 

RHO ( INF, { S T A T ) a G A S R H 0 ( R ( JivF, JSTAT j ,WMQL( INF ? , T( INF? ISTAT) ) 

At INF, I ST AT ) -SOUND ( GAMMA ( INF) » WMOLt IMF ) , T( JNF j j ST AT ) > ~ 

E/iACBt INF )?V( INF)/A( INF, ISTAT) 

C( IMF ) s GAMMA ( INF ) »P ( INF, ISTAT ) #EMACH( I Nf ) «tM ACH ( JNF )/2,0 
pt'l i\F , I RAT I 0 ) = PR A i 1 0 ( GAMMA (IlF ) , F'iACH { I\F ) ) 

RHO (INF , 1 RAT I 0 ) ?RHORAT (GAMMA ( I IMF ) , E M A C H (INF)) 

T t INF, I RAT J 0 ) sTRA'F iO( GAMMA ( JNF ) , F.MAGH ( INF ) ) 

P ( T NF , 1 T 0 r a L ) ~P C I NF , I S T A T ) up ( I (vF , I R A T I 0 ) 

R H 0 ( I ivj F , 1 T 0 1 A L ) ~ R H U ( INF, ISTAtV»«h6< IMF, I R A T I 0 > 

T t INF, I T 0 T A L ) " T ( INF, ISTAT )#T( INF, IRATlO) 

A (INF, ITOTAL ) a A ( INK , ISTAT ) «SQKT ( TUNF, I RATIO) ) 

P ( INF , I P 11 0 T ) " P ( INF, I S T A T ) <t p F j T 0 T ( G A m 3 A ( INF ) , EM ACH (INF)) 

P l T 0 F , I P T R A T ) s p ( INF, ISTAT )/P( INF, IP! rQT) 
c p ( 1 1 K ) a G A M M A ( IN f ) * « U N \ V / ( W m 0 L ( I N F ) « ( G A M M A ( I N F ) - 1 , 0 ) ) 

E N 1 HAL ( I HP , 1 ) =CP ( I NF ) »T ( I N F , I TOTAL) 

COMCURF )“.P,0 

CALCUl. A I ION OF TUFT JET Ex II PARAMETERS, 

A R ( J E X 1 I , JBASE)*AR( JEX!T,1)/AK( J3A3E.3,) 

A h ( J E X I T , JSTAR 5 s AR ( JbX J T , 1 )/A« ( JSTAR , 1 > 

RMO( JET , I 1 Q T a L ) sGASKHQ(P( jF.T, 1 T 0 T A L ) # uMOL ( JE T ) , T ( JE T , i TO T Au ) ) 
F.MACH ( JET ) -Ah ACH ( GAMMA (JCt) , AK ( JEX 1 T , JSTAR ) , l , J ERROR ) 

IF ( IERW09.FQ, 1) RETURN 

PI JET, I K-U I 0 ) =PR A I I 0 ( GAMMA (JE1 ) i EM ACH (JET) ) 

RHO ( J E T , I RAT I 0 ) sRHORA 1 ( G l - U A ( JET) , EMAG'H ( JET ) ) 

T ( JET, I R A T ! 0 ) 5 T R A r I 0 (GAMP a ( JZ 1 > , E M a CM { JE T ) ) 

P ( J E T , U;xIT)=P(JEf, ITOTAL)/P( JET, IRATJO) 

RHO ( JeT , I LX IT) sRHU( JET , I TOTAL ) / RHO ( JE T'» I RAT 10) 

T t JE T , I EX I T ) s T( JE r , I TOT AL ) /T ( JE T , IRA T I 0) 

A ( j r. 1,11X11) a s u U N 0 ( (i A m u a ( J e t > ; W h 0 L ( J F T ) > ft JET » IEXIT)) 

A i JE r , IT OT AL > - A ( JET, 1-F-X I T ) -SORT ( T ( JE T , IRATlO) ) 
p v JET, IPITGT) sp ( JET , IEX I T ) #PIM TOT < GA M PA < JE T ) , EMACR( JET ) > 

V i JET)- 1 ; t A C M ( J E T ) « A t JET , IEXIT) 

C *' (on 5 a G A . 1 M A ( J £ J ) « R U A (V/( V M 0 M JE. T )»( GAMMA ( JE T )- 1 ,») ) 

MOOT ( JE 1 , X)~'iHQ ( JET , IEX S T ) *V ( JET 5 a- A R ( J E X I T « 1 ) 

PN I HAL ( J L 1 i 1 ) “ C P ( J E 1 ) a T ( J E T , II OTAL ) 

E :v T H A I. ( J n , INF) S E N 1 H A L ( J F.) i , 1 ) / C N I H AL( J Np , 1 ) 

C 0 N C( JET ) = 1 , 4 


A-18 



0 / 2 X 0 

C 



0 7 220 

r 

w 

CALCULATION OF jet and model radii, 

0 723O 



RU'STAR,l)sS3RT(AR( JSTARa)/PI> ■ 

y 7 2 4 a 



r ( J e x 1 r , x)'=s--,rt(ah( JExrr,i>/Pi > 

E / 2 b y 



.K ( JE X J T , JST A R ) = R ( JE X I T , 1 5 7 R ( JS I A R 1 .1. ) 

!') 7 2 6 0 



R C Ji3A5E , 1 3 sSCRT < AH (' JBASE , X ! / 1 ’ I ) 

0 7 2 7 w 



H i JF ACE , , 1 ) - S > H T ( aK( JF ACE , X > /P 1 5 

V- / Z. C »■ 

w / 2 y a 

c 

CAL CUE A I UKv f-K IhE THRUSTING COEFFICIENT , 

0 / 3 0 0 



TthpsRMO ( JET , IEXH )»AR(JEXIl , J3A5-E ) » V ( JET ) <* V ( JC T ) /Q ( I NF 

0 / 5 1 0 



C ! - TEmP« ( 1 , 0 + 1 , C/( GAMMA ( JET )«EHACM( JET )*EnACH( JET) ) ) 

0 7 3 2 0 



R c. f JR N 

073,513 



END 

6 ) / 3 4 0 

C 



0/350 

G , 

J s a e 

t « t • ' * < ! | M I t t M » M ' ' ’ ( * 1 < M ( M M M M ' 1 M t ( | M 1 1 M • t t 1 

0/36 0 

C 



0 / 3 7 0 



s U B R.o u i I V E s P Hi ERE ( l ERR 0 R ) 

0 7 3 a 0 

c 

calculates ihe Radius of the bl.untjng sphere arc the location 

0 7 3 9 0 

Ay 

ITS 

CEE'ER VI TH RESPECT TO THE NOZZLE EXIT PLANE, 

0/4 0 0 

G 



0 7 4 1, 0 



C 0 K M 0 N / C 0 !v STS/P|,R U H l V 

O/420 



C 0 '•*> M ON/C 0 H E A C t C 0 N V ( 1 0 , 4 ) , y N ( 4 ) , \ lj N I H > l U N 0 U T 

0 7 4 3 0 



. COHMOiV/IDENT/IGEAD, INF t JE 1 , J T E RH , L A YE R 1 M J X ? M J80 Y , M 1 1 N 1 , 

07440 - 


1 

I EX n , I PI 1 CT , IRA T 10, ISTAT, I TO 1 AL, JNFRAT , I P T R A I 1 JRF.TRN 

O 7 4 b 0 



C 0 M M 0 n/JDELT/J 15 a S E, JCENTR, JEXIT, JFACE, JSF'HER, jSTAR, 

0 7 450 


i 

J'l ERSti) hA X , M E R G E , MOD, H Q 1 N PI, NS 

0 7 4 7 0 



COMMON/ AERO/ A ( 13, 7 ) , CD , COnC ( i.0 ) , CP (10 ) » CT , E.MACH ( J.y > , 

0 / 4 0 0 


1 

EM 1 HAu ! 12 , 7 ) , GAMMA C 10 ),PU?,7) ,.Q ( 10 > , 

K 7 4 y 0 


2 

rho ( 10 , 7 ) > T ( 10 > 7 ) * V ( 10 3 , WO 01 ( 10 ./), WMOL ( 10 ) 

0 / S v3 2 



CUNMOn/GEOM/a LPHA , AR ( 14 , 14 ) f R ( 14 , 14 ) , 

L/blK 


1 

T h E T A ( 1 4 ) ,X( 14,14 ) , YU4,14) , XHU(14) 

0/520 



EXTERNAL FCTCN 

0 7 5 3 0 

C 



0 7 5 4 p 


6 9 B 

FORMAT ( ’^CONVERGENCE FAILURE, DUMP Y = * f 1PE 1 3 , 5 , 1 FCTCN? 

0/55 O 


i 

El 3 . 5 , » I C R * ' , I 4 , / ) 

0 7 5 6 0 

C 



L 7 5 7 L 



. TYPE 12 


k / 5 b K 

a 7 5 9 0 
0 7 6 0 -0 
0 / o 1 W 
■/ 7 6 2 0 
0/6*50 
a/64 0 
!■' / 6 b 0 
0 / 6 6 K 


0 7/20 
W / / 3 0 
0 7/4 0 
0 / / b U 

0 / / 6 0 
f/. t j 1 (A 

y- / / h 0 


1.2 


SPHERE 


C 

c 


f UR HAT ( • 
iOUTsci 

6 ’ A t C U L A i I 0 fv O F THE BLUNTING sphere diameter, 
puEAL) = P( IDE AO, ISTAT) ~ 

I F ( p ( 1 :VF , 1 bT A T ) , G I . P ( 1 t)E AU , 1 5 I A T ) ) POE AQ-P ( INF, ISTAT) 

this fohhulat i on is necessary to calculate p h q p e key The blunting 
sphere u i a pe ter when it is larger than the base diameter, 

EUAUK (LAYER) =P|'ACH( GAMMA ( JET ) ,P{ INF, I P 1 T0 1 ) /PDE AD ) 

V JET c v' A S T A P 1 G A I’ A ( J f. I ) , EM ACM ( JE T ) ) 


I HAT 


IS LESS I H A i v I m E i I A S F. n i A » E T E R , 

V L A r Ers = vA S TAMUA H M A ( J E T ) , L M A C H ( L A Y E R ) ) 

E i 1 f p I <> E M A C i i ( IMF ) / 2 j 0 

T r. M P = ( (H) b ( E ’ i ) « » 2 ) + W e 3 a f * ( 5 I N ( E M > #(* 2 ) 

L u K t-i Y=(pD E AD/P ( I iv E > I P I T 0 T 3 ' T E R P ) / U . ? - T E M P ) 

r j | a i u « n {,’ t ( | . I] i‘h,]V \ 

Ci' = fM 1 '-F , J PITOT }/U( I Vp >#Tl.MP/li ,B-P( I D E A 0 t ISTAT)/.-- ( I NF > 
f,i - j . h + 1 , 0/ ( LAPP A UE f ) *• E M A C H < JE \ 3 «E'U ( ;H ( DE V ) ) 

•I I - - 1 ■ = C 1 / f : p. ( t , : + ( V L A Y K l< / v vJ F r } 2 0 m ) • 


K 

/ 6 7 0 


IE (Ef: 

AGh ( I 

F ) . f, r , 1.1 

>J) GO 

T C 

0 

/ b b v? 

C 






0 i 

/ 6 9 0 

C 

CALCULA 1 ION 

FOR 

free s t r f; a 1 

MACH 

i’v 0 

0 

/ / 0 0 

0 

N 0 I E T H A 1 ? 

i HALF 

5 S I N ( A L F ) , 

COS At, 

F = C 

0 

/ 7 1 0 

c 

ALE "P ! / 2 1 0- 

1 H ETA 

(NS) ■* ALPHA IF 

the 


i; A 


A S f ) / f - 



B 7 ij 1 0 
I 7 b 20 
.,s B/B ^0 

S7 7B4 0 
tl / b 3 0 
0/860 
0 7 b 7 0 
73 / 33 B B 
<J 0 / b 9 0 
0 7 V 7* E 
0 / 9 1 7! 
-> y /y 2 v 3 
0 / y 3 0 

0 / V 4 0 

; .;■■> 73 / 9 3 73 

s3 7 y 6 >5 
7J / V 7 0 
,0 fy/V<30 

0 7 9 9 B 
0 75 77 U M 
,0 b B k? x so 
(3 Si 0 33 0 
0 a S3 B S3 
L9 B b 0 4 0 
73 8 S3 !? s 3 
B B 0 6 # 
0 b 0 7 33 
(4 B S3 8 0 

73 a 090 

. J 0 S3 1 0 0 
0 8 . 1. 1 v5 
0 8 17? SO 
, ^ ■ 081 .5 0 
/: B SL 4 S3 

0 8 1 a s3 
•* S3 B 1 6 S3 
0 b 1 / S3 
S3 8 ,1 B 0 

;? B 1 9 0 

kidcv 33 
S3 S3 0 J. 0 
0 B 2 2 w 
0 82 3 S3 
0 ij 2 4 33 
Vj a 2 ‘3 i-5 
0 S3 0 6 : 4 

0 U £ 7 0 

1 S3 8 2. b 3) 
Si 8 2 9 3) 
B SJ 8 B S3 
,) Vi 8 9 X S3 
'3 Si ,3 2 '•? 

V) y 0 /> 0 

u a .3 4 0 
I- o a a 

S3 8 ij i> 1 : 
v'i Si -3 / 0 
3! U 0 H 0 
(3 8 7> 9 0 
S 3 y -1 /! V> 


1 <s G A (•! M A ( 1 1\ F ) i* [S H A C H ( 1 H F )»EM A C H (INF)) 

R ( JSPHth , 1 ) “ 5 0 H T ( AR ( JBASE » 1 ) # YtMP/P I ) 

GU'i‘0 fcBkl’ 

C 

C CM, CUt A I I DM FOR F R F Z STREAM MACH NO, GREATER THAN J.,5>0 , 

Bfcvy T E M p = ! Put AD -S' ( IFF » I ST AT ; ) / <P< i NF » I P I T 0 T ) -P < IFF , IS TAT) ) 

31 r 4 A l , F s bQRT ( TEi'ip ) 

C U 5 A E I = 3 0 H T ( 1 G « 3 I N A t F # S I N A t F 5 

DU = 2 . AR ( JKX 1 T , i ) *P ( ,1 1: T V HOI AL)/(Pl#(CQ5ALF#M> 

1 ttVPUNf' , IP1 TOT )-P( INF , I ST AT ) ) ) 

OF 2=(P( JET, I <•; X ! I )-P ( I DEAD > I ST AT ) ) /P ! OF. T , 11 OT AL) +2 , 0*GAMMA ( jE f) 
1 / s G A M ii A S J t T ) + 1 1 ; 3 ) <v V J F Ft V J t T / R B Q ( J E T . I R A T l 0 ) 

Qt 2s Of 2 + S W R T(2 1 0 # G A | M A ( S JE I ) / ( G A MM A ( J F. T ) + 1 . 73 ) >'# V J f T ' 

1 /KHU( JET, IK A TIC) « t i'1 A S3 i I ( l, A Y E R . ) ■« C G S A t F » S U RT(G A M M A ( J £ T ) 

?. / I RAT l 0 ( GAMMA ( JE T ) , EHACH C LAYER ) ) ) 

R \ gspHER , 1 ) ~ b Q l< T ( PF1*DF2) 

C 

600 AR ( JSPHER 1 1 ) = P I #R ( JSPHER »l)«lU JSPHER # ,1 ) 

W u 0 T ( I .'«‘F , 1 ) = AR ( JSPHER , t } »RHQ ( I NF , 1STAT)#V( INF) 

sc the above ia used to n q n « u j r e n s j n a u i s e some mass flows, 

R (JSPhEH, JEX 1 T ) - R ( USPHERii ) /ft '( JEX I T . \ ) 

A H ( JFX I T , JSPhER )sAH( HEX I 7 / 1 ) /AR ( JSPHER > X ) 

R S J S P H Ek, JBASE)“ IT ( J S i 5 H F. R , 1 ) / IT l J B A S3 E • 1 ) 

C 

c location of the center of the blunting sphere, 

c T H f c 0 0 K y I M a T E S A R f. N 0 N - 0 I M E N S I U N A L I 2 E 0 ’.'J I T H T HE J E ! N02ZUE t X J 1 
C RADIUS AND ARE ME AS UH ED (■ R 0 M THE CENTER OF THAT PLANE, 

Z M 1 s t Mi A 0 rl ( t A Y E R 5 / 2 > 0 
D ! 2 - F M A Q H ( 1 , A i ER)/3, v) 

CALL pet W t LUj.-iMY , v a u , FCTCN; EMI » EM2 1 1 . ME -6 , 100 , IER) 

IF ( I E R , E Q > 2) GO TO 7O0 

WR IT E U OU T » 69 8 > DUMMY , V At 1 I E« 

I E K R 0 K 3 1 
RETURN 

p 

7 00 X I JCE'-jTR , JEX I T ) ax C NO, JEX I T ) - Y ( ND, JEXI T ) »COT A N O H t T A ( N U ) ) • 

XT JCEnTR.1) “X( JCLNTR, JEXI1 )#RU£XIT»1) 

XI JCE NTH t -JTERSH )sX( JCENTR , J E X j T ) / X ( J T L R S H , 0 E X I T ) 

RE TURN 
END 

c 

c 

s 0 B R 0 u T I N E J t T S c K ( X J , Y J , t ERROR I 

c CALCULAIES 1 HE LOCATION 'OF TrE JET I t RM l N A L SHOCK . IHE> BY A RUMGL" 
C KUTTA INTEGRATION, IT CALCULATES THE LOCATION OT THE JET HQUNDAH Y 
C A N 0 I T I INTERSECT I 0 N W I T H ' THE TL R M I N A L S H 0 C K » 

C 

a a m Tl 0 n / c 0 0 s r s / p i , r u m i v 

CUiS 10 0/ I UE.- T / I OF AO I I NF , JE I » J'rtKM , LA YER > M I X , MJbUY , M;t 1 N T , M2 I N T , 
1 I EX IT, IP II or, {RATIO, ISTAT Ml 0 1 AL , I Af RAT, IP-fKA I , JRETRN 
c U H n 0 i'J / J 0 1 N T / J 3 A 3 E , J 0 F H T R , JEX I T , JF ACE , JSPHER , JST A R , 

1 J I E R S H , Fi A X f M f R G E , M 0 0 , N 0 , N P I , N S 

C 0 M M 0 0 / A E R f , / A ( 10 , / ) , CD , CO i'v C ( 1 0 ) , C P ( 1 C ) , C T » t H A C H < ;1 0 ) , 

1 F 3 T HAL, (15,7), fi A p h A (ID) , P ( 1 0 , 7 ) 1 U ( 1 M ) , 

2 R i 1 0 ( 1. A / / ) , T ( 10, 7 ) » V ( 1.7 ) t WUO T U0»7), WYQl*( ID > 

(5 0 H ij On/ (j t 0 ‘ / A L F H 7, , A R ( 14 , 14 ) , R (14 , 14 ) , 

l T if E r A ( 1 4 ) > X ( .1 4 , 1 4 ) . Y { 1 4 , 1 4 ) , X N U ( 1 4 ) 

UONHOn/FC tai/pmi ,xx,yy 

0 J M E ;v b I 0 N X J ( 2 0 1 ) , a 0 IJ [ { 1 ? ) , Y J ( 2 0 M 5 , Y 0 Ij T (.10) 

■ • A«2Q - — ■ - -- - 



/;• ‘S 4 4 i/j 

W84 23 
Vi u 4 3 a 
ii d 4 4 Y> 
v) B 4 5 [o 
k 8 4 60 
oh 4 / ki 

a a 4 a a 
U a 4 9 1 ) 
a a u a a 
a tibia 
a a a 2 a 
a a b 3 a 
a a a 4 a 
a 8 u 5 a 
a o -> 6 a 
a a t? / a 
a a u 8 a 
a at? 90 

K 8 6 0 0 

0 8 6 1 a 
0 8 6 2 0 
0 8 6 30 
0 U 6 4 0 
086 50 
0 8 6 60 
0 8 6 7 M 
0 » 6 3 0 
a a 6 y a 
a a / a a 

08/3.0 
08/20 
aa / %$ a 

0 8 / 4/3 
0 8/5 0 
0 8/6 0 
08/70 
08/80 
a a / y a 
a B 8 0 a 
08 81.0 
'/> U b 2 0 

a 8 a 3 a 

Ij 8 b 4 0 

0 b b 5 0 
0 » 8 6 0 
088 70 
a a b s 7. 

'6 3 8 9 0 
w a y a a 
0 a y i fcj 
08 9 20 
is y y a a 
a 8 y 4 a 
•4 5 y 5 a 
a h v y y 
a 8 y / a 
■:■ ■• y y 8 a 

•'•, H V U :•> 


EXTERNAL FCT.HK/FcrpJ ; 

v ■ * . . 

X 1 8 F-U N M A I ( 6 1 H 0 r HE J E f N 0 /. 2 L'E EX I 1 PRESSURE “ ; 1 R E 1 2 , 4 , ' 

1 3 o H IS. LESS THA..\ i HE DEAD A j R >RE SSSURE ' -r El 2 . 4 , / ) 

148 FOR MAT. < 3-2 h,;. The JET N072L.F. PI TUT PRESSURE =♦ IPE.12,4, 

1 2 oil 13 LESS THAR I HE F PEE 

?, 24H STREAM P]TGT PRESSURE =iE12,4i/) 

198 FORMAT (' /CONVERGENCE E A i E-URE » ‘"0UM^Y= 1 1 1PE1-J|!>« ' F'Crpjs* , 

1 FI3.5T f ICRs > , 14,/) 

386 f JR HA T ( 6 'd H / THE VALUE OF H ; THE STEP 3 1 ?E , , 

1 1 4 H lo LESS THAU , IPE.12,4,/) 

C 

T / PE 12 

12 FORMAT ( * ENTERING JETSCK > ,$> 

J U U T 5 8 

G THE JET NOZZLE EXIT PRESSURE MUST BE GREATER THAN. THE DEAD A JR 
C PRESSURE, . 

ir (P( JET, lEXJT) ,G.T ,P< IDEAD, IS14T) ) GO Tq 120 
w R.I TE ( lour, 116 ) F»( JE T, I EX IT) ,p(I DEAD, I ST AT) 

GO TO 900 

c 

c THE JET HO^LE exit PITOT PRESSURE MUST BE GREATER than the free 
G STREAM phot pressure. 

.120 JF<P( j£Tf JPITDT) ,GT,P(1NF» 1P1 I0T>> GO T 0 150 
WRITE ( i OUT # 148 ) P ( JE T , I P l TOT ) » P ( INF, I PI TOT ) 

GU TO 9aa 

150 puof.ad, iptrat)=p< dead, r ts t a t ? / p < iivF, jprron 
c 

0 A C ALL is made to “PGEa- SUBROUTINE TO FIND ITERATIVELY THE JET 
g TERMINAL SHUCK hack NUMBER* by MATCHING the free STREAM AND JET 
G PITOT PRESSURES, 

V S 0 L, I M - 2 , J f f E N T H A U ( J E f » 1 ) 

R 8 0 1 s p ( I ;.:F , IP I TOT VVSGUM 
R h 0 2 * 1 , 5 # R H 0 1 

CALL P G t. W (DUMMY , V A L , F C T P J » R H 0 1 , R H 0 2 , 1 , 0 E - 6 , 1 0 U * I E R ) 

G DUMMY ep ( J1 ERHi IPJTOH/Pt INF, IPI !OT)'1,0 . 

I F ( 1 E K [ E 0 , 0 ) GO TO 2 W 
WRITE ( 1 OUT, 196) DUMMY, VM, IER 
GU TO 9 a S5 
C 

c INF; JET AND FREE STREAM PITOT PRESSURE ARE NOR EQUAL, 

C 

G CAL CUl„ A i I ON OF THE AXlAl DISTANCE OF THE JET TERMINAL SHOCK FROM 

c The jet '"o?./u. exit plane. 

'km C J s SGKT C t . S -1 . D/T.RA T I 0 (GAMMA ( JET ) , EMACH < JTERM) ) ) 

C J S l a SLR T ( ( GaMLA ( JE u ~1 , O ) / ( GAMMA ( JET ) + 1 , 0 > ) 
p C P M Y a C F VAC (GAMMA < JE T ) , A R ( JE X 1 T , J S T A R ) , PR A 1 , I ERROR > 

IF ( JFKKuR.fcO, 1} GO TO 960 

T '* P - b 0 K T (PI )#( 1 , J- DUMMY / (,CJ«CFMAX ( GAMMA (JET ) ) ) ) 

X 1. M 0=1 , !v /TEMP 

TuIPa ( 2 , 0/ ( GaHF-A ( JET ) ♦ 1 , 0 ? ) «» ( 1 , 0 / ( GA M K A ( J E T ) - 1 , / ) ) 

X ( J I E rt r. H , J S TAR ) s S Q R T (7 E H P » X ), M U / S Q R T ( p I ) » C jST/CJ 
1 v w h i) ( j 1 1 R r J » I p A T 1 0 ) ) 

X l J I r-UTh , J E X J T)sX ( JTF.RSH i JST.AK ) / R ( J E X J T , JS T AR > 

Q 

G 0 A L C U [ A i l 0 ■ ; 0 F THE J E T B () U h 0 A R Y LOG A T I o N . 

*CMACM ( 1DEA0) sPi’UCH ( GAMMA ( JET ) »P( JET , I T 0 T A / P t IIJEAO, ISTAT ) i 
s ; : : ’> F M A (j p ( IP L A 0 5 * t f '■ A CN{ I DEAD) 

p 3 1=2. v / ( GAMMA ( JE !)*•!, 0 ) »SQRT l SG" ”1 . 0 ) 7 S w M (i A R ( J L X I T » J 3 T A >- ) 

1 . / A H \ T I 0 (GAMMA < j E T )’ , E M A c u ( ( 0 E A U > ) 



J 



t; 9 0 1 0 



X vU ( JE.X J I UP, Mu < GAMMA C J E T ) , h M A CH C JE T > * I ERROR ) 


>4 9 ;/) 2 8 



Ir ( IEkROR , EQ, .1.) GO TO 960 

4 

$ y 0 3 0 



X N U 0 E 0 ~ P 0 N U < G A M M A (JET) ,E M A C H ( I D E A 0) , I E R R 0 R > 


0 9 9 4 0 



! M i EM R 0 -R » E 0 , 15 GO TO 960 


i-5 y 0 ‘i 0 



THE T s ANUDEO-XNI) ( jEX J T } + ThtT A ( JEX J T > 

j 

c y 9 6 1 ! 



R *f 0 A = J 0 H T ( 1 , V + T H t 1 / P S l ) 


9 9 9 7 0 



X H ” 1 . 8 / h H 0 A 


9 V H 8 9 



, PHI s Pb I + 7 HET 

j 

K y 9 9 o 



XBARHUx ( JTF.RSH , JEX1 T ) #XR 


0 V 1 8 y 



H S S = X b A h h x » X b A N M X 


8 9 l .1 9 



> i X R / 1 8 , 0 


0 9 1 2 2 

c 




•A V 1 8 2 

c 

T H I S 

LOOP FINOS THE UPPER LIMIT OF • 1 HE INTEGRAL* I ,E. THE 


0 9 l 4 a 

U 

A S V M P T 0 • 1 G PLUME RADIUS, 

■J 

8 9 1 9 » 


297) 

■ X 1 UR 


V 1 6 2 



Y i ~ 8 , 


■ 8 9 1, / 0 

8 

in ore 

THAT j fsi THE TRANSFORMED COORDINATES IN WHICH THE INTEGRATION 


2 9 1 8 2 

c 

he; in 

G CARRIED 0 U T * X B A R CORRESPONDS 10 YJ AND CAPITAL R TO XJ, 


0 919 0 



CO 30:0 1 = 1 1 181 


0 9 2 0 0 



CALL KUNGM FCTRK, H, XI , Y1 * 1* 1* XJ, YJ) 

j 

U9210 



JMYJH),GT. X CAR MX ) CO TO 310 


9 9220 



XT = XJU) 


0 9 2 8 0 



Y I " Y J i 1 ) 

j 

0 9 2 4 0 


3 0 8 

CONTINUE 


0 9 2 9 0 

c 

the: 

ASYMPTOTIC PLUME RADIUS HAS NOT BEEN REaCED BECAUSE THE STEP 


0 9 2 7) 0 

c 

size 

WAS TOO SMALL « INCREASE THE STEP SUE, 

■s 

0 9 2 7 0 



H = 2 , 0 »H 


8 ' 9 2 8 8 



GO TO 298 


0 9 2 9 2 

G 




8 9 002 

i: 

STEP 

SUE IS ADJUSTED SO THAT T H £ ASYMPTOTIC PLUME RADIUS U 


0 9 0 1 8 

C 

REACHED vJUf> ! bEFOR£ THE END OF THE INTEGRATION, 


0 9 o 2 fi 


3 1 0 

H ” ( X I + H” XR ) / 1 B 1 , 8 


8 9 0 3 ;■) 



CALL KUNGK ( FCTRK , H , XR r 8 , 0 , 1 , 1«1, XJ* Y J ) 


0 y 3 4 0 

c 




8 9 3 5 0 

c 

THIS 

A H U T H E ► 0 L L 0 w I N G LOO P FIN il THE LOCATI 0 N OF THE INTERSECT 10 H 


8 9 8 6 0 

G 

1 HE 

JET I E:R i'I J N A L SHOCK WITH THE JET BOUNDARY » 


0 9 0 7 0 



D 0 32-J U2>181 


09338 



IF c XJ( 5) «X J( 1 ) +Y J(I )#YJ( n , GT • RSS ) GO TQ 330 


8 9 8 - 9 0 


3 2.4 

cud r i hue 


0 9 4 3 8 

C 




0 9 4 1 M 


3 03 

XPXJIHI 

ik 

i) 

f , U < •/ 



Y i •; r J ( T - 1 ) 


9 4 4 k 

V 

3 4 3 

H 5 H / 1 y J 0 

J 

0 v 4 9 :■; 



. CALL HU MU ( FCTRK , H , X I , Y 1 , 1 * 10 * XOUT , Y Q J T ) 


iy V ^ f) /; 



D 9 358 1-1,18 


0 y 4 / 0 



li- (XOUT ( 1 ) #X0UT ( U+Y 0 UT( n»YOUT( I ) ,CT ,RSS) GO TO 360 

'Jr 

0 V 4 4 V. 


3 9 '< 

CUD r I DUE 


9 4 y k 


6 6 k" 

IMI.E'J. 1) GO TO 340 


V l> /. f 



X t " X 0 0 T ( I ” 1 ) 

0 

,'j V ^ 3 >/ 



Y) . 5 TOUT ( hi) 


8 9 SAM 



h i H , G T , 1 , 0 1 - 20 ) GO 10 3 9 0 


V k> ,5 i ! 



KHlrt; ( I OUT , 368) H 

ci 

!/■ <j H 



G 0 T 0 9 0 V> 


i V ! '? : j> 2 ’ 


090 

IF (*\tJS((Xl#XI+YI#YI >/RSS " 1 , P ) , G 7 , 5.0E-4) GO TO 340 

0 

si ¥ *;> l \ 

l_ ■ 

TWt. 

STEP SUE IS NOW SU SO THAT THE INTERSECTION POINT IS REACHED 


V l ,; o ; ' 

L 

t X A G T l Y i M A i -l E V E M N i i 8 HER OF STEPS, 


«. V^V! ' 



)■ ; •- ||< I " )vi 1 ) / , 1 8 1 , J 


■:;v 



C ALL A ( ; h G l< ( F C T R K t N , XR, 0,0* 1 , .1. 8 1 , X J > Y J ) 


A-22 



!-j V 6 i. !■) 
s') 9 0 2 v- 
0 V 6 3 if 
(/ 9 6 4 fa 
y y 6 y y 
W V 6 6 1- 
14 V fa 7 3 
0 •> fa 8 7) 
u y 6 9 w 
0 y / M g 
to V / 1 to 
to V / 2 to 
to y / 3 to 
to y / I'e 
toy / fa to 

to 9 / 6 to 
0 y / / b 

to 9/(3 to 
09/ 9 to 
to 9 fa y to 

•r yy;i •) 

to 9 B 2 to 
0 9830 
to 9 fa 4 to 

09 b fat) 
to 9 fa fa 7'. 

0. 9 H 70 
098ay 

098 9.0 
0 9 9 to to 
to 9 9 1 to 

099 20 
899 3 to 
0 9 9 4 to 
K 9 9 fa to 
89960 

0 9 9 7 0 
to 9 9 fa K 
§ 9 9 9 to 

1 0 to 0 p 

1 to to :i 0 
1 to to' 2 to 
1 to to 3 to 

1. to if 4 to 
,1, to to b 0 
X to to 6 to 
.10!' 'to 
1 0 to 8. to 
1. to to 9 0 
1 to 1 to to 
1 0 1 .1. to 
1 0 1 to to 
X to 1 3 to 
1 0 1 4 to 
1 ! ) X fa fa 
1 to 1 6 '• ! 
1 to 1 t » 

10 19 0 


G T K A N S to 0 H fa I N G BACK TO HEAL COORDINATES, 

DU fatoO I - X ! 1. X ■ 

TtMPeXJl ! ) 

XJ ( i ) =K hOA« V j ( I 5 
fa 0 to y 9 U ) = R fa. n A «T£ n p 

X ( Nil BEX I T> =X J(101) 

Y(KD f Ot:XIT)=YJa8XJ 
GO TO 960 
C 

9 00 I ERROR* 1 

9 6 3 R t. tfaj P iN 

ENU 

c • 

c 

S '■.> U R 0 u T I N£ M J X I NG < X J , YJ , XI I N , Y 11 N , X2 I fa i Y2 l N , J ERROR ) 
g this suurqut ike calculates the location of the two interfaces and 

C I HE. MASS Efsi N< a INDENT ALONG THE JET fa 0 U M 0 A R Y ( THE BLUNT J NG 
C SPHERE AMO THE INNER INTERFACE, " 

G 

c u M M ON/OOfaSTS/P I , R U N I V 

c 0 m 0 N / 0 e N FAC/ C 0 ifaV ( 1 W , 4 ) , U N { 4 ) , I iJ N I N « I U N OUT 

C u t ■ H 0 N / IUEUT/I U E AO, I N F , JL T , JT K K M , L A Y C R , M I X i M J B 0 Y , H % I N T , M2 1 NT , 

5., I LX IT, I r I TOT, IRATlO, I S T A T 7 I T Q I A L , l Nf RAT, I P T R A T , JR E TRN _ 

C U ! ! H n ii / j p ENT / J B A S K , J C E fa T R , J EXIT , J F A C E , J S F H E R , j S T A R , 

J. J ! ERSri , HA X , M^RGE t MOO , HQ , HP I , NS 

CUHHOH/ AEKC/A (10,7), GO , CONC ( 1 M ) , CP ( 10 ) * CT > EH A CH ( % 0 > , 

1 EN I HAL 110,7), SAMOA ( 1»>,P< 10 ,7 ) , Q (10), 

2 Rh 0(10,7) , T(10,7) , V ( 1 to ) , WOO T ( 10 , 7 ) , WMQU 1.0 ) 

COHMOO/GLOfa/ ALPHA , AR ( 14 , H ) , R ( 14 , 14 ) , 

1 THtTAU'»),X(l4,lA>,Y(14,i«),XNU<l«) 

D J MEINS I ON COS W ( 8) , BETA ( 8) , OY J ( 200 ) „ E T A < 8 ) , F 1 ( 6 ) , F 2 < 8 ) , 

1 V i L ( 8 ) ( X V J ( 2 0 to } , X 1 1 N ( 1 to 8 j , X2 1 fa U00 > , Y J < 2 8 to ) , Y 1 1 U ( 1 to 0 ) , Y 2 l N ( % 0 3 ) 
G 

150 FORMAT (» PLAYERS DID NOT MERGE WITH T HE 7 A = » , F 1 2 e 6 , / ) 

C 

TYPE X 2 

12 FORMA! < ’METERING MIXING') 

I U U T = IS 

s i nths=s i N ( theta ins ) ) 

C U S I F fa s U Ufa} ( T H L f A ( 0 S ) ) 

0 

C c A L C U S A ! fcl THt PROPERTIES OF THE MIXTURE I fa THE DEAD AIR REGION, 

"C P C I IJ K A 0 ) = C 0 • C ( I 0 E A 0 ) » C P ( J E T ) + < 1 , to - C P r. C ( I U E A 0 ) ) ft C p (INF) 
t-.faOL ( IDEAL) ) =X , 0/ ( CONG ( 1 1) t A P ) / 9 M 0 L ( J E f) + ( 1 . to-COMC ( I DEAD > > 

1 / fa HOL, < 1 F ) ) 

c v i) i: a i • “ g o ■•! c ( j o t a o )#tcp( jei ) - r u n i v / f, m o i„ s j e n ) 

1 Ki.to-C U fa C ( I 0 E AD)) « ( C fa (1 T F ) - R U WlV/ W M 0 L U N F ) ) 

G A 0 • I A ( I 0 l A fi ) s CP ( S l> E A 0 ) / C V 0 L A 0 
T ( I ML AO , 1 F 0 T A L ) «LNT HAL ( lOtAD , 1 > / QT 5 < IDEAl)) _ 

ROD (IOt AD , I ST AT 5 fcCASRHO ( R U ij E A U , I 3TA T ) f WOOL ( J DEAD ) , 

i r 1 1 c f . a p , i r o t a l ) ) 

R H 0 ( I OF. A 0.1 INF RAT ) ~ R H 0 ( IDEAL', J fa T A T ) / R H 0 ( INK, IS [AT) 

C 

IHiOCP-uASRkO ( P ( INF ♦ I P I T OT ) , WM(H, ( JE T ) , T ( jE T , I TOTAL ) > 

R'fOto .{ " G A S HO 0 ( F ( l HE , I PI TOT) , WOOL < I »F ) , T < INF , IT QTAL ) ) 

A H Ofa ” to , i fa <EA R ( JSPhER i 1 ) ■» A ( J F, T , I T 0 T A [_ ) « 3 0 R T ( R H 0 fi 2 * R H DPI) 

X / S ' j 0 '( ( J L T , X ) 

0 

!.: -'Or P| I ACT* f gamma ( Jt T ) , :l , 0/P ( I OF AO » l P TRA ’ > ) 



3 


»/ 


s) 


4) 

41 




a 


,*5 
*, § 


: 3 

3 


1 0 2 1 0 
1 4 2 2 W 
j 0 2 3 0 
3. 0 0 4 0 
1 0 2 50 
3_ 0 2 6 0 
1 0 2 7 2 
10230 
,1 '.3 2 9 0 
1 0 3 vj 0 
1 0 310 
1 0 3 2 0 
:l 0 3 3 0 
3, 0 3 4 0 
1 0 3 3 0 
1.03 60 
103/0 
1 W 3 6 0 
103 9 0 
1. 73 4 0 '3 
1 0 4 1 0 


T 0 :: 1' < JET * I TOTAL ) / ! HAT l 0 (GAMMA ( JET ) > EMU ) 

PUIUTU ~P( I DEAD? ISTATMEttO/SURi (TO) 

B 3 P i''i ^ 3 s 1 1' v A R ( JSPhEK, 1)*A( JET , i.TOTAU)»S«RT(KHO02 
1 ■* H H 0 ( 1 1 .) 2 A 0 f 1 3 T A T ) ) / W 0 0 T ( J E T , 1 )' 

C 2 A = A H ( JL.X i T » JSPHEh ) »EMACH ( JET ) & P ( J E T » I £ X { T ) 

1 /S$i<TlT( JET, I F. X 1 T ) ). 

U 

g H A S S EH I p A I i i i'i E i- T A L 0 1-.' G I HE JET B 0 u P UARY, 

CP=0 , 33 0«-SQHT (RHOC IuE AO, I S T A T ) / ( RHQ ( J TERM , I STAT ) #TRAT I 0 ( 

1 GAMMA ( JE T ), EMACM ( j rtHH ))) ) 

v( J] EkM ) S A ( JLT I I TOTAL) *EMA C r i ( J TERM > /SqR T ( I HAT I 0 C GAMMA < JE T ) , 
1 EMACffl J ! f PM > ) ) 

H = Y J ( 2 ) - Y J ( 1 ) 

GAEL J E h I V ( 1 , 1 6 1 , H , Y J * D Y J ) 

C U Y J U ) W 0 W ij E C 0 i ■> E S T h E I N T EGRA N U , 

uu 120 m,m 

120 O'f J( I ) = y v.J ( I ) »SORT a ,0+QYJ ( ] ) »UYJ{ I ) )/DYJU ) 

G P E R F 0 R Pi THE l N T E G R A T 1 0 N F 0 R T HE JET B OU.NDA .RY., _0 

CAUL SIMPS (1,131, H> DYJ, 0, ’A, SiJMZ ) 

W U U T ( i4 J rs P Y f 1 ) e 2 , 0*P 1 *KHQ ( J T Eh M , 1 S T A T ) <> V ( J 1 E RH ) »CS*SUM? 

ROOT ( MJBDY , JET ) =2001 ( M JBDY , X ) / W D Q T ( J E T ' 1 ) 


x 0 a 2 0 

c 



104 30 



PM 

10 4 4 7 




,10 4 30 



M ~ U 

0 4 6 3 



M H S J “ W 

i 0 4 / 3 

c 

M N 0 W 

BECOMES 1 K H E :<l H REACHES 5 FOR THE F I.RST TIME 

1 0 4 H 0 



f ‘iSSW = M 

,1 0 4 9 3 

c 

HSSW 

HE GOMES 1 nhem THE I is GREATER THAN TBEU(NS) 

10 3 0 0 



Si! N = 0 | Q 

1 0 3 1 0 



S 2 l M s 3 , '0 

1 J 3 2 0 



TH1 NC= J , 230/00 My (1, IUNJN) 

X 0 3 3 3 

c 

S T E p 

SI/E = "0,230 DEGREES, 

% 0 3 4 0 



DUMMY = THETA (MAX 5 

1 0 3 3H 



I r ( IHETA(NS) ,C,T, P 1/2,0) U UMM Y ? P I <»2 , 0# T H J NC 

10 3 6 0 



!*•■’} 0* ThE 1 A (NO) /THINC 

10370 



WHO a* 2* ( ( HKQ + 1 5 / 2 ) 

1 0 3 a 0 



Til 1 HC 5 T H L T A ( f ■: 0 ) / F L 0 A T ( W M D ) 

10 3 9 M 

g 

THIS 

Insures that the summations over subscripts i 

10600 



filSTpsAuOK'* THING 

10613 



H2S f P 3 B C pf; « T H I H C 

1 '// 6 2 0 



the i =- thi NC 

1 0 6 3 0 

c 



1 0 6 4 M 


137 

THE f= I HE T T M I MG 

1063M 



U < T Hit T.LT, DUMMY) GO TO \W 

:i 0 6 6 3 

c 

THE 

J K T ~ M A Ss F L 0 a H AS N 0 1 P E E N E N THAjNE 0 E V E N w l T H 

1 0 6 7 0 

C 

f U ft f HE R CALC U l, A 1 I 0 1 S A HE M 0 1 P 0 3 S ( B U E , 

l w 6 a 0 



?. 1 H E 1 5 T H t T tt C U N V ( 1 , I UN IN) 

i 0 6 y 0 



Y: H i 1 E ( I 0 1/ T , 1 3 A ) t 1 H E T 

1 0 / 0 0 



go ro 90/ 

1 0 / 1 0 

g 


- - 

1 0 / 2 0 


100 

l:Hi 

10 7 3W 



j j + 1 

1 0 / 4 0 

g 

MASS 

E mk a hue hi along i he first i n r e h f a c e only, 

1 0 / 3 0 



] t- ( K S s '>■' , E Q , \ ) G: 0 T 0 J 3 0 

1 0 / 6 0 



IFCIHET.GT , P 1/2,0) GO (0 200 

10/ 7 3 



PUPFI ! (THET,P( IMF, IPTftATj ) 

l 0 7 H 10 



G l) 1 0 2 6 %. 

1 7 / 9 0 


20 7 

X NU 1 ~ x : , u ( OP 1 ) +THE C-PI/2.C 

1 0 a 0 0 



E m 1 - X h A CM ( G A K M A ( . 1 N F ) , X N U 1 , I F, H R 0 R ) 


» 


A HQ M TRACK, 


niET = THEl A(hAX) 


A- 2 4 




Unii'J 1M ItrtHOR.tQ, 1) GO TQ 960 ‘ 

10623 : p;i = p ( i '4" , .! P I TOT ) /Pit A T UH G.AHMA i J NF ) » £ M 3, > 

10«. 3:0, 2 3 p i !S = F ( INF , IPITCT5 /PI 

1 0 1* 4 14 p £ - P X 

l w y fi E M 2 = P h A U H ( G A ;-■< K A ( j El ) , p T S J 

1 fcj y 6 (1 G M A 3 S E P I h A 1 N H E N T A L 0 N G 1 H E H L U N ! | N G S F H ERE , 

1 W ii / b F I ( J5 s b, h 2 * 5 I N ( T H l T )' / P T S 


I 0 0 fi 0 C 

lid 6 9 0 ■ IMTHET,Lr,THETA<NU) ) GO 10 !>W0 

lOVi'P H = M + i 

1 0 y 1 0 h b W ~ 1 

10920 COSW(M) -”1 ,0 

10 9 30 T2 = ! ( UE I , I TOl'AU / I f< AT I Q ( GAMMA ( JET 5 i EM2) 

1 0 9 4 0 V E C ( M 5 ~ l M 2 » S Q RT(T2) 

1 » V y 0 0 G A L C U l A 1 I 0 fv - 0 F E' T A ( M ) , 

1 14 V 6 D 2b0 C2'02A/( (Fb.H0T[)«G0GW(M)+EM2»r2/30RT(T2) > *» S 1 N ( THET ) ) 

109/0 ’ IF (02 ,GT. 0 = 505 GO TO 700 ' ' 

109 yP C ETA (M 5 IS THE 0 i S T A N C F. . N 0 N - L> I M E P S I 0 N A L I 5 F 0 R Y TH E 0 L 0 N T IN G .. 

10990 c ' sphere, radios, between jhe two interfaces and jt is always 

limb C W E G A T I V E i 

11010 El A(M)«-l,0+SQRT(l,a-2,0#C2) 

iio 20 c pass cniraiument along r h.e second interface, 

11030 ' RWARst 1 » 0 + ET A ( M ) ) #S I N ( THE 1 ) 

110 40 F 2- ( M ) ~ E K 2 ft R B A R / S 0 H T ( P T S « T ( J £ T > J 1 0 1 A i_ j / f 2 j 

11050 GO' TO 350 

11060 ■ C 

110/0 - S00 H ~ M + 1 

11080 c -P 1 » P 2 ARE HOW CONSTANT, THEREFORE EiU,EM2,T2 AMD C2 ARE ALSO CONSTANT 

1109.0 0 ago HAVE THE VALDES WHICH WERE EVALUATED AT THE I A (NS), 

11100 C 

llll 0 I H A = T 1 1 E ! - T H F. T A (NS) 

11120 '£ b A R ~ ] A f\ C T EiX ) 

11130 fj MASS ENiRAlNMEM ALONG CONICAL PORTION OF THE FIRST INTERFACE, 
lllAD FI U > = < S I N T H S * £ B A R * C 0 S T H S ) / < COS ( THX J «*2 ) 

111 DC C CALCULA i' i ON OF ETA(H) 

1116 0 ~ ' B2SJ ,0 + ifLlARttCOSTHS/SlNTHS 

1117 P 1 V ( 2 , 0 * C 2 , G T < B2« a 2 5 CO T 0 / W 0 

1 1 1 fi 0 L 7 A ( M > s ~ b 2 + S i.j R T C B 2 * b 2 - 2 , 0 # C 2 ) ‘ 


1 i 1 y c 

C 

mass 

f n i fi 

A I 

i>; h E N T ALONG 1 HE 

SECO 

NO I 

wT ERF ACE , 

) 

112 0 D 



fi 6 A R - 

1 1 , C * E T 

A ( 

H) 5 '-SIN 

r 

!-i S + 

it 13 A R 

CO 

X 

Cfj 

o 

L3 

?? 


1 1 2 1 H 



F 2 ( 

H) 

” R Ii A R 








11221 

C 












1 12 8 0 


8 5 h 

If- ( 

f/_ N : 

;m ,E0, 

1 5 

GO TO 

8 70 




112 4 0 



P ' 

^ f 

L I , 3 ) 

GO 

TC 150 






1 1 2 !> D 

C 

N 0 li 

M s- 0 (• 

u K 

THE FI 

AS 

T TI.NL, 






1 1 2 6 O 



f • N S 

U| ” 

1 








112 7 U 



CAE 

L 

uEhIV (1. 

» 3 

i T H 1 in C i 

E' 

T A r 

i 1 E T A ) 


1 1 2 8 0 

c 

N Q !•; 

THA 1 

WE 

u AV'E o 

fc. Ta/o theta 

5 : 

t ^ 

L C A 

N HAKE ThE CORRECT I (3 A' FOR 

1 1 2 9 v. 

< ' 

G 0 S N 

(M) N 

0 T 

t 0 o A y 

TO 

1 « 0 • 


ESE 

1 i o 

THET-ThP 

I T A ( N U ) , 

1 1 3 2 C 



1 : l 

-5 









1 1 0 1 0 



Kf.H' 









■ ■ ■ — - - - 

1 1 8 2 w 



1 h E 

f - 

f Fit T ~ 9 , 

4Th i m; 






ii n 8 0 



go' 

TO 

1. » 0 








113 4 0 

G 












1 1 3 ;; 3 


0 7 / 

G 0 

ro 

( 4 0 1 f 4 

: ? 

? 4 0 2 , 4 0 


, 4 ?< 

5 ) > M 



.1 1 3 6 


4 3 1 

p 0 l 

A ( 

1 ) » ( - 1 , 

b 

« t. r A ( 1 ) 

+ 

2 . 0 

• ; i E T A 

( 2 ) -0.5 ? i 

ttTAU) 5 / T H i i\ 0 

1 13/ 0 



G °, 

1 0 

4 ,1 0 








1 1 8 h V. 


4 ii v 

P L i 

A ( 

r, 5 k * ‘A 1 - i ,j v-i 

§ 

>. r V 

L T A ( t-i + 1 


y t 

A in. 

\ j : - 

1 5 ) / T fi 1 1: c 

•» 

1 1 3 y y 



f, it ' 

ro 

4 1 J; 








1 3 4 


A f/j tjj 

DLT 

A ( 

•A 5 = 10,5 

8 <t- 

ErAU"-2? 

-2 , 

P « E 1 A ( M -15+1., 

, 3 0 w If T A ( i* 1 5 5/THIMC 


A-25. 




3. 1 4 3. 
114 2 0 
114 5 0 
114 4 0 
1 1 4 b i) 
114 6 0 
1 1 4 7 «■ 
.1 1 4 !•■ 0 
114 Vi: 
1 1 8 13 0 
1 1 2 1 0 
1 1 2 2 V 
112 52 
1124# 
1 1 2 1> W 
1 1 2 6 V 
1 1 2 7 2 
1 1 2 B V 
1.12 915 

I i 6 M 2 
11215 
116 2 5 

I I 6 5 5 
1 16 4 0 
1 1 6 2 5 
1 1 6 6 '-1 

1 1 6 7 5 
1 1 6 8 0 
1 16 90 

i i / 5 0 

I 1 / 1 5 

i i / 2 0 

117 50 
11/4 0 
11/2 0 
11/611 
11/70 
11/80 

I I / 9 10 

118 0(3 
1181 '0 
1 1 b 2 v 
% 1 6 3 0 
1 1 8 4 {/. 
118 5 0 
1 1 b 6 y 
1 1 b 7 0 
1 1 8 8 8 
1 1 8 9 0 

1. 1 2 0 2 
1 1 V 1 5 
i 1 2 2 0 

1 1 9 8 0 

3. 1 V 4 1 
1 1 9 8 V 
1 3.9 52 

1. 1 V '/ 2 
1 1 9 6 V 
j. 1 V 9 1 


C 


C 


c 


c 


c 

c 


c 

rj 


C 


C 


G 


G 


G 


0 

r 


41| CUNT J N U E. 

U CSSbK.EO, 1) GO 10 460 
IH.MSW S £Q, 1) GO 10 420' 

TtMpcuo 1 4 (rU/a , i:-h: i aim? > 

C 0 8 W ( h ) 5 1 . O/SORT (iU + TtPRs TEMP) 

13 ( LOG 2 C-U , L T . 3 « 2 0 ) COS 2 (H)=0, p 0 

GU TO 280 

GAlCOLA'u: top INTEGRAND of THE INNER INTERFACE for IHET UtSS 
THAN Tot; l A ( i'vS ) « 

420 F 2 ( M) "3 2 ( M)*SUKT ( ( l,f«*ETA(M) )*(1, 0 + ETa«M) ) + DE J A ( M 5 »0E 1 A ( h ) ) 

r,U TO 2 00 

SAME AS ABOVE. HOT FOR I MET- GREATER THAN THETA (NS) . 

462 F2 ( 14 j =22 { M> ttjjQRT ( ’ ! U 1 .«*ETA’(M) ) / (CPS ( THX )»*2) ) **2 ). 

1 + UE 1 A 1 4) »DE T A ( M ) ) 

202 J 3 ( I ,t. T , 3 ) GO TO 180 

perform The integration for the buh'otinc spRfRET 

CALL S I HP SC 1 , 3 / His I'P i F'l » si I N, SI OUT ) 

1. 3 ( f H L T , L T , 1 K L T A (NO) ) GO TO 8«0 

It ( IT f t Q , 8) GO TO 220 

I M M * 1 0 » 3) CALL S 1 M P S ( 1 » 5 » H 2 S T P > F 2 . S 2 I ? v / S 2 0 U T ) 

GU ro 180 

P E H F 0 R n THE 1 N T E G R A T I 0 !-i F 0 R J H F I N N E R I N t ERF ACE ( 

222 CALL SlnP5(3,5,H2STP,F2»S2IN,S20UT) 

! t_ ( rHc . t , l t , t h e i a ( n s > ) go ro s-ro 

N b b w = 1 

CHANCE OF "STEP SUE- WHEN THET IS URETER THAN THETA (NS) * 

MIS TpsHlSTP«FH2/PTS 

M , 2SIP»H2STP#FM2/S0RT (PTS#T ( JE 1 > I T 0 T A L ) / T 2 ) 

242 U (ROOT tMJBOY, JET) +S10Ul + S20Ur < GE, 1.0) GO 10 720 
K £ s E T F 0 K C 0 : v f?i N U A T I 0 N 0 F THE INTE G H A T I 0 H . . 


S2U = 

b 2 0 U T 



OU 

86 

0 h J~ X 

i 3 


T 2 ( 2 J ) " F 2 ( K 

J + 2 > 


\U- 

E(L 

J ) - V E L 

( H J + 

2 ) 

’p 6 ^ t* i 

A ( >•; 

J ) a E T A 

( MJ + 

2) 

M 3 

5 




^ <3 & X 

J h= 

blDU r 



Fl 

U) 

= F 1( 3 ) 



i: 

1 




u 

I vj- 

.1 f if. { 

2 0 

((J-D/20)) GO 10 630 

0 0 

1 o 

1 2 0 



U A E C U L A 1 

I 03 

Oh 1 H 

E V' 

T E H F ACES LOCATION, 

6 fcj 9 ; |\ 

1 i- { 

J - 1 ) / 2 




It Uf ML T , G I , T HE T A ( NS ) ) GO 10 623'“ 

LOCAUO'VOF THE BLUNTING SPHERE • 

XI I 2(6 ) = R US P HER, JEX I T ) *COS ( IHET ) +'X ( JCES'TR > JEX J T ) 
Y i 1 i , ( 6 5 R 1 . ) S l- o L R # J E X .1 r ) »S I N < THE T > 

1 1 ( niET.U'I , TitElA(NO) ) GO 10 650 
G 0 ' 1 0 6 60' 

Log at i on of ill jet terminal shock. 

f-37 pH r f I,h T -AS I ( X ( jCL'v [ H , JTt.RSH ) »S J N ( THE T ) ) 

A-26 



■ 


o 


c 


u 


o 


o 


c 


J 213 IB 
.1 2 / 2 0 
• 1 2 O 3 f ' 
% 2 / 4 P 
120 50 
4 2 !'■ 6 / 
1 2 / 7 i. 
1 2 K H (0 
l X' W 9 to 
J X l X X 
1 X 1 .1 'X 
IX 1 2 0J 
:l 2 i >5 i-i 
1214 03 
1 2 l 9 2 
1 2 1 6 « 
1 2 .1 7 03 
:l 2 :l. 8 -£> 
;t 2 ■ 9oo 
X 2 2 2 0 
12 21 2 
1222 0 
12230 
122 4 2 
1225/ 
12260 
12270 
,1 2 2 6 § 
1 2 2 9 0 
X 2 3 a 0 
1. 2 0 1 03 
12320 
1X33/ 
1 2 3 4 0 
1 2 3 5 0 
1 2 3 6 2 
1 2 3 / 2 
•J. 2 3 8 / 
1 2 3 9 Z 
1 2 4 2 03 
:l 2 4 i / 
1 2 2 0 
J 2 4 .5 2 
). 2 4 4 2 
.1 2 ■'* b 03 
j, 2 4 6 1 

1 2 4 / 0 
10 4 6 0- 
1 '2 9 9 
1 2 2 O': O': 
1 2 3 J 03 
1.29 2 0' 
j. 2 9 3 2 
1 2 3 4 2 
X 2 9 9 '/ 
1 2 3 6 / 
) 2 9 / _ 

3. 03 9 8 / 

3 '4 b , 


>;2 i N ( K ) s X ( J r E H y H , JEX l T ) *COS ( PH | ) 

Y 2 : S U ( K ) ~ X ( JTERGM , JL X 1T5 «S I H ( PH I ) 

c;u tq 19/ 

L O.UA T J Qn OF' THE COM ‘CAL PORTION OF I HE FIRST INTERFACE, 
6 5 A X X I o ( A- ) - X ( h S i J r_ X X f ) " ZB AH >“ H ( J-S 2 HE R > JEX I T ) »S 1 NTNS 

Y i 1 n ( K ) "• Y { R S , J F X I I ) + £ H A R » H ( J S. P H £ rt , J K X I T .) »'C O S T H S . 

L Q CAT I O 3 O F T !•■: E S E C O ' ’ O 1 H TERFACt, • 

9 60 xx I 6 ) a XI t 0 ( K ) + E ! A ( M)»R ( uSPHER » JEX i T )«COS(THET) 

Y 2 l N(a ) - n 1 N ( K ) + E ] A CM) »H ( JSPHtK, JEX I T ) * S | N ( THE T ) 

GU 10 192 


/ / 8 
I H F 
MASS 

Ton: 

/ 2 . : 

7 50:3 


r A A C'=.0 ,fc ... 

S p p a P A T 10 1'.' B E T V E E N 1 HE 1 w O {NT E K FACES H A S V A N I S H E D , 

FLU* E R 7 « A 3 H E N T IS FOHCJPLY S]OPPED, BUT PROG R A R CONTINUES, 

GU I'O 7 50 ' , 

Jet pass flow has been successfully entrained, 


6 7 


91 

9 0 0 
9 6 O' 


F RAC- ( 1 , Cl-',. DOTH m JBUY , JET > j™ S 1 J N-S2J N ) / < S 1 QU T + S 20UT - ( S 1 J'N + 32 1 H ) ) 
wjO r ( lil I 37 , JE T ) =S1 1 fv + FRAC'" ( S1UU 1 - Si I N ) 
v 0 o r ( M 1 1 ! ; T , 1 ) = w UOM M 1 1 N T , J £ T ) R 0 O 7 < J E T • 1 ) ‘ ' 
h 'J 0 1 (421 !'i 7 , J E T ) s S 2 i N + F R A C « ( S 2 O U 7 - S 2 I N > 

W : j 0 T ( h 2 l N T , 1 ) - w DOT 1 1 2. t N T , JET ) ^XQOi ( JET ri ) 
p v E L = V t L ( M ) " v E L ( M " 2 ) ■ ' 

V ( M I X ) s a ( Jt; T , HOT At ) « ( VEL ( H-2 7 + F R A C «■ D V £ L )/SQRi l T ( JE T , l TOT AL ) ) 

rut: r a c merge ) = the t-2 ,.o#th i nc« c i , o-frac ) 

2 H X-~ THE 7 A ( M E R GE)« C 0 E V ( X » ! U N 1 N ) 

T H Y = 7 H E 1 A ( ;i A X ) » C Q u V U . 1 U K i l N ) 

T rPE 6 7 , id MX , T f 1 Y 

F UK M A 1 C ’ H.ETA MERGE , MAX* ' , 2 Fid , 4 ) 

TYPE 91, w DOT ( JET , 1 ) , W DOT( R J t) U Y , J E T ) , W 1 3 O 7 ( M 1 1 M 7 , J E T ) » 
P!.!OT(!l2lNT, JET) 

FORMA 1 ( 1 MOOT JET ^JETBOY, 1,2 = _’ ,104813,5,/) 

GO TO 950 
I E RRGK 5 1 
R t T of R M 
f \0 

9 ?» et 4 e »« es » ffe 99 «^®® f 8 * P » P !**»!* f «»^ t *» 9 »‘********» , *»» f *****«**»*** 

S U O R O U T 1 1 ; E M C R b C ■/ ( I E R H 0 R ) 

this s u r h q u i { me is f o r be !P ; tjng sphere d i ape i er less t h a-h 

7" HE B A 3 1 O 1 A; PE 1 7. R , 

this subrout im: .by call i mg subroutines -hpco*. anu -ectss-, 
performs " t h t i-tegxat jon of the ’ five different i al equations, 

hit. STakUHG VaUoE IS THAT ARGI..E AT' WHICH THE LAYERS HAVE MERGEU, 

ANU The [ HAL A L. U E IS I. HA I 'aHICH JUST GRAZES 7 HE BOON SHOULDER, 

c 0 M 30 C i\ / c !': p OO T s / p I , R'JOO I V - . 

C M M O I-J / c 0 R F A c / c Q hV ( l / , 4 ) , U N ( 4 ) , I IJ 3 ■' I M , J U % O U 7 

OUriUO-N / IDE; T/IDEAUi 1 ; 'h , JC I , J rF#i , L A Y!-R I (4 1 x , M JRDY , Ml iTi I ,li2hh , 

1 I EX J T , I P I I uT , I PA 7 l U » ! J TAT* I TOI AL , I .vFRA 1 > 1 P 7 p A I , JRE 7 RN“ 
f |fi 1 1 0 : 0 / J ;j t IT/ J b A s E , J C E 'J 7 R , J E X ! T , J F A O E , U S p H ER, JSTAR, 

1 . j I L R ' . i f ■ r A X i 3 L 0> G L . il Oil .’ '4 O , '■! t J I , H S 

C U M ;i o in / A E R 0 / A ( i ^ , / ) » c; p , c O 0 C ( 1 U ) , 0 P ( j, O ) , C T , E M A C h ( 1 0 ) , 

3. E 7 H A l. ( 1 1; , 7 ) , G A 17 M A { 1 ■/ ) . P ( 1 0 . 7 ) , O ( 1 / ) , 

2 R"0 ( 10 , 7 ) , T ( 1.0 ,7 ? I V ( .1.0 ) I WUi)7 ( 10 , 7 ) , SMOL ( IB ) 

0 1.1:010 'i/GEPi ■/ ALPHA , AR (14 , 14 ) , R ( 14 , 14 ) , 
f ■ ; 7' I A 0 1 4 1 . .v < 1 4 , 1 4 ) , Y ( 1 4 , 1 4 .J , X A ,J ( 1 4 ) 

. ... . ... - .... A.-27 . .. 


1 



L 0 0 1 4 



CUHUON/KOOT/mSSwCH, CAPPA I KMOCS f UES , XR A H 1 , XK , X L AM , YU , YSSL 

;l 0 (' 2 0 



C 0 M n 0 N f ti.\ U//NUU' T 2 U N 13,0 

M I 4 , XiiU . X Nij 1 # Y K 1 » YK? , YK3 . Ybb ( 3 } 

■i d (■' 3 4 



0 l ME!:S {UN PR T ( 6 ) . YSS FARC B > , 0 K K Y ( 0 ) , AU'X (16-3) 

1 2 6 4 0 



F X 1 E R N A L F c Tb'S | 0 0 rp,K N f 2 D , C 0 i I , 

2 0 / F C T L A M » F C T H U » F C TMU , FC ! YS S 

1 2 6 !? 0 

U 




;! 2 '■> 6 fc 


418 

F U H H A 1 ( ' 2 C OH V E R G E N C t FAILURE, 

LAM0A3* f 1 P E 1 4 , 5 > ' F C T L A M - ' , 

J. 2 6 / 0 


1 

F. 1 3 . 0 , > I ERs ' » 14*/) 


1 2 0 8 0 


4 38 

FUR { ■; AM' * C 0 N v E R G L « U F. F A I L U R t , 

M U s ' , 1 F’ F. X 3,3. ' f CTHU 3 ;' > 

1209F 


, 1 , 

EX4,bU I E R 5 U I 4 U ) 


1 2 t 0 


4i?d 

F o k n Alt’ / C u N V i: R G E N C F FAIL U R E , 

,mU=' ,lPCU.t>» ' F C T MU - f * 

1 2 / 1 '>■: 


1 

U3.GU J E l< = 1 4 , / ) 


id/ 2/; 


4 9 U 

f ' u R TAMM. C 0 n v LRCENGL FAIL U P t . 

Y S S L = ' , 1 P E 1 3 , 5 > ' FCTYSSa ' , 

12/30 


1 

F.: 1 3 , 0 U l E R = ' , I 4 » / ) 


12/4 0 


09b 

. FORMAT C U-EHROR I L INTEGRATION 

SUBROUTINE, SSTARti ,1PE13.5» 

1 2 / G 0 


1 

' ir,LF = UI4,/) 


12/60 

c 




12// 0 



T Y P L 12 


1 2 / a '2 


12 

FORMA T ( ' ENTER I NG MERGED ' ) 


12/90 



J.UU 1 -ti 


1 2 6 0 0 



NU I M = i> 


1 2 b 1 0 



TEMPsl ,3 /FLOaT (NO iHJ 


1 2 020 

G 




1 2 U 3 2 

(t 

Vj 

THE FOU-OvnInO CALL IS NECESSARY BECAUSE T HE INI UAL VALUES 

j 2 0. 4 0 

c 

OF YSST AR ARE CALCULATED IN SUBROUTINE M'CTSS- , 

X Z 

G 

N S S N C hi ■ i S U SF.U TO b T E E R ~ F C 1 S S - TO 

CALCULATE I N I UAL 

1 2 8 6 O 

C 

value 

S . Ago 1 0 SK J P CALCUL A T I ONS FOR 

THET GREATER THAN THE T A C NS ) , 

12 0/ M 

C 




1 20 8 0 

c 

X 8 A R I 

IS THE INITIAL VALUE. OF THET 

AT THETA (MERGE ) , SSTAR JS 

1 2 o 9 y 



X b A f? I -- T h L T A ( : E K G E ) 


3, Jr 5 y 0 k5 



IF < X B A R I ,GT,THETa(RS) ) X B A. R J = 

t BETA ( NS 5 

1 2 9 1 0 

0 




1 2 9 2 2 



NS5wCh=l 


1 2 9 3 3 



SST AR=0 . 0 


1 2 9 4 3 



G A l L F C 'i 5S(SSTAR,YSSTA R » 0 L R Y , 

1ERR0R) 

1 2 V G 0 



IF U ERROR- EQ, 1) GO TO 963 


1 2 9 6 0 

G 




12 9/ 0 



WbS‘riCH5 2 


1 2 9 0 W 



Tyre i/, c ysstarckiu »kksi»!>) 


1 2 9 9 0 



PkH (1) " 3 , 3 


1 o 0 2 0 



PRUT ( 2 ) =T HE TA CHS ) ~ T HE I A ( MERGE 

) 

1 4 2 1 4 

(J 

the step sue is set initially to i 

.U DEGREES, HOWEVER, THE 

1 3 U 2 0 

T ’ 
V 

i N TEG 

P A T 1 o H s 0 [j K 0 U T I N E MAY C H A N G F. T 

HE STEP SIZE, 

1 3 1 ) 3 0 



f • K M T ( 4 > - % , 3 / Q 0 h; V ( % , 1 U N \ N ) 


130 4 0 



P R 11 |(4) si , 4 



X .5 (•-'<!) /i 
13 0 6 0 
1 4. /; :• 
13UU 

1 .5 0 y P 

i 4 1 w W 
1 4 1 :), u 
]. $ 1 2 
1 4 -l 4 4 
1 4 1 4 4 
A 4 .1 > 0 
1 4 1 6 x 
A. .5 J. / W 


C 

l A (THETA (MERGE) ,|J .THETA (NS) ) GO TO 120 
KUAHJ s Tht I A ( u S ) + T A U ( T H f, 1 A ( M El i< G E ) - I HE! A (MS J ) 

GO i n 220 
C 

G YSSTAR (3.) -MOO T » = U.K’ T / ( A R ( JSRHI.R » 1 ) #KHQ( ( hf , ISTAT ) »V ( IKK ) ) 

C T H A r I s '"IDU'I / i\GOT ( I op , .1, ) . .... . 

G YSST AR ( 2 ) = U H A H = U BAR/ V ( Il*F > 

G Y !> S F A R ( 4 ) ~ |.‘ sj A H * - 0 13 i. R/E G I HAL ( l N F * 1 ) 

C Y SO TAR ( 4 j sC>iAH = COMC 

C, Y s S T AR( '3 ) - ! ‘ U 0 ! R » a M S 5 f L G W E M- A I N fl 0 F R 0 M THE DEAD A l R REGION 

C FROM THE T'tKT 1 .4 G POUT IQ THE ENU OF THE INTEGRATION NORMAL, 1 2EP 

C GY ROOT U G'F * X ) • , ' 


1 OH w 
X 0 0 « 
1 .3 X , ■ V> 


GO 13 V j = 1 « N 0 I H 
uj- 1 ' Y ( 1 ) - ! EGO 


.12 • 
13/ 


A- 2 8 



l 3 2 1 w 
162 2 « 
13230 
X 6 2 X O 

132 50 

1 3 2 6 6 
1 3 2 7 y 
1 3 2 a o 

1629 -i) 

1 3 6 $ a 
1 3 3 x a 
1 3 3 ^ a 
13330 

133 -? a 

1 3 3 a 
13 3 6 0 
1 3 3 / 0 
13 3 80 
1 3 3 9 0 
1 3 4 0 0 

1 3-1 10 

1 3 4 2 0 
13 4 3 0 
1 3 4 4 0 
13 4 5 0 
13 4 60 

134/0 

134 80 

1 3 4 9 0 
i «5 5 0 a 
1 3 0 

1 3 5 20 
1 3 6 3 3 

1 3 5 -1 0 

13560 
13 5 6 0 
13 5/ 0 

135 3 0 
1 3 6 9 0 

136 00 
13 61 0 

1 3 6 2 « 
1 3 6 3 y 
13 6 4 0 

1 3 6 8 0 

1 3 6 6 0' 
1 3 6 7 0 

1 3 6 R 0 
1 3 6. 9 0 

1 3 / 0 0 

13/13 
13/2 3 
1 3 / 3 3 

13/4 !v 

13/5 3 
13/6 0 
X 6/7 W 
t 3 / y i- 1 
1 3 / 9 •/, 
t i ; ; ■ . 


C I N T Z G H A J 1 0 N FttOM ThETA (MERGE) TO THETA < NS ), WITH S S T A K AS THE 
Q R U M N l N G V A H 1 A H U E i 

CAUL, hPCG ( pRhT ,YSST AH , OCR Y , NO I M , I HLF , f C TSS . OUT P , AUX , J ERROR ) 
IMIHlF.G'T, IP) GO TO 900 
C 

G INTEGRA I lor-. FROM TmETA(NS) TC T HE T A ( M AX ) , IF THETA{MERGE) IS 


G GREATER IHAn 
C To THFTA(NS) 


i ft T A ( N S ) , i >1 E J 1 L G R A 1 { 0 N I S F R 0 M T HE I A ( P URGE) 
O-.LY aND THE !\irlAL VALUES ARF calculated AT 


C 7 H E T A ( 5 ) , 


;; RESET L 0 E R LIMIT OF ! f. r EG ; PA r I OR TO THETA ( NS > . 
r R i ‘ T ( 1 1 " P K T ( 2 ) 

224 i\ a S w C n - 3 

DO’ 234 J = 1 j N 0 I H 
230 DER V ( I ) = TEoP 

prh Ton* Theta ins ) ♦tan (theta < max )- theta < ns ) )«xbarj 

CAUL H R 0 G ( PR T , YSST AR , PER Y , NO l H , 1 HLF , FCTSS , OU J P , AUX, J ERROR ) 
IMIHlP.GI, 10) GO to 903 

c 

0 the I W T l G n A T I 0 R IS MOW FINISHED, PROCEED TQ CALCULATE THE 
C THREE PHOT 1UE PARAMETERS, U A M 0 A I X F, AH) , ML'(XmU) ANq NU(XNUl). 

C 

OD 4 03 i * 1 NO J M 
4 00 yss ( ! ) =YSS TAR ( J ) 

C 

C FIND L A 1 0 A BY AN ITERATIVE PROCEDURE, 

CAUL PGEW ( XU AM , VAL , F C T L A M 7 0 , 50 » 1 , 0 , 1 , 0E-6 , .130 , I ER ) 

! M I r K ,E fo . 0) GO 10 423 
/Till (I OUT *413) X|.AM,VAl,» IER 

GO TO 930 
C 

c T I N 0 y, U H Y A N I T E R A FIVE P R 0 C E D U H E , 

4 22 CAUL P & E X ( X M U , V A L , F C T M U ,3,2,3 ,.50 , 1 , 3E>6 , 100, l ER ) 

I Y ( m H , E Q , 0) GO 10 4 4 0 
i-. H I T F C I 0 U T > 4 3 6 ) Xmu,VAL»ICH 
GO TO 933 
C 

C FIND Mu BY AN ITERATIVE PROCEDURE, 

4 40 CAUL PUEts' < XNU1 » VAL . EC?NU, 0, 0 , 3 , 50 » 1 . 0F.-6 » 103, lER ) 

IMlER.EO, 2) GO TO 463 
. H I TE { I OUT , 45b ) X N U 1 7 V A L » IER 
QIJ TO 9 33 

z 

460 CONTINUE 

TYPE 1 6 , X L A N , X M U , X N U 1 

1 6 F 0 R rl Alt* E A M D A , 0 g , 1 1 U ~ ’ , \ P 3 E \ 3 • 5 ) 

TYPE 17 , ( YSS I AR (KX),KK=1,S) 

17 f UR.MA I ( ’ Y « '-'il P x E 1 3 , 5 ) 

C f HE TOTAL EwTRAKEO A\0 TmE NEC I K CUE A TED MASS FLOW IS NOW MADE 
G 0 I K E N S I U N A L U wO£ A G A I N , 

Y b o T A K ( 1 ) s Y S S T A !< ( 1 ) « W D 0 T ( i N F , 1 ) 

Y b S ( 1 ) = Y b S T A R C 1 ) 

YES r An C b ) •• YSSTARC 5 ) »WUOT ( IMF , 1 ) 

Y S S ( !5 i s Y S S T A H f 6 ) 

0 

U UALCULA't THE MASS RETURNED TO I HE DEAD AIR REGION, 

;• uU T ( Ji' E TiP' 1 , l ) ?WDO ! ( MUDDY , l. ) +WOOT ( M2 I N 1 , 1 ) + YSS T A R ( 5 ) 

u 

F f IN) THE SEPARATION STREAMLINE BY AN ITERATIVE p H 0 C L 0 L p E < 

C A l I. t J G E o ( Y S S t. , V A E . F C T Y S E » 3 , '■ >0.10* J. . : • F - ' 1 • ’ ! ! ‘ } 

A-29 -- 







V < 
















isj 


Hd.'-' 



1 5 e i r) 

,i 3 a 2 u 
188 30 
1 3 8 4 B 
13 8 3 fc! 

1 a d 6 0 
1 3 b 7 0 
1 >5 b 6 0 

:i 3 w y 15 
3. 3 9 B » 
3, 3 y i w 
1 3 y 2 u 

13 9 30 

X 3 7 4 0 
X 3 9 5 0 
X 3 V 6 Vi 

I . 5 9 7 0 

1 3 9 lj 0 
1 39 9 0 

1 4 0 0 0 
1 4 U 1 M 

14 0 20 
14 03 0 
1 4 0 4 0 

i3b? 
1 4 « 6 
140 7 0 
1 4 0 8 0 
14 0 90 
14100 
1 4 1 1 0 
14120 
1 4 1 0 0 
14 14 0 
14150 
14160 
141/0 
1410 0 
1 419 0 
X 4 0 00 
1 4 2 1 0 
14 22 0 
14 230 
1 4 2 4 0 
;1. 4 2 5 id 
.14 2 6,5 
1 4 2 7 0 
14 2 8 '<) 
142 90 
1 4 3 0 0 

J. 4 3 1 •<; 
1 4 8 2 0 
1 4 5 3 0 
.1. 4 3 4 0 
1 4 3 5 0 
1 4 ,5 6 0 
1 4 5 / 0 
1, 4 3 8 0 
1 4 3 9,- 
1 4 4 o ; i 


0) GO TO .500 

Krtilf ( i 0 U T > 4 9 6 } Y3SL, VAL> IER 
GU 10 9 30 
G 

C C A !, g U L A It. T He U E (• G £ 0 £ JHALPY, 

b 0 0 fj ALL 0 G b ( " V 0 , Y S S L ' £ £ T 2 D < ^ ' T 3 ) 

E. ■'•! I HALt I DEAD , J NF ) =2NT3/3N 1 2 

ELM [HAL « I0£ AO, 1 ) sen THAI { I DEAD, INF ) » E N T H A L ( INK , %) 

G 

T V P£ 81, Y SSL 

81 (•' J A h A T( ' Y S 5 L s ' » 1 P E 1 3 , 5 ) 

G 

C UAL CULAJt THE MERGED CONCENTRATION, 

CALL yGU ( -YK , YSSU t C 0 N 2 0 > ?NT4 ) 

C9\C( 10 LAP) =2NT4/2N12 
type: 1 5 , E n T H A L (I P E A (.) , 1 ) , coivg ( 1 D E A □ ) 
lb FOHMAU' ft i C 0 W C ' , 1P2E13 , 4 ) 

C ‘ ... - 

GO TO 9 6.0 

900 WHITE U OUT *398) PKMT ( 6 ) i i H L, F 
932! 1 t, K R Q K ~ 1 

960 RfciOHN 
END 


C 

C , • »»*»,, ' I * 1 ,* (<**•• • * 1 

c • 

SUBROUTINE MERGE 2 UERNQH) 

c This SUiiROUUNE is FOR BLUNTING SPHERE DIAMETER greater than 
g the base' diameter* 
c ' 

G THIS SUBROUTINE ,RY CALLING SUBROUTINES - H P C G ~ AND -FCTSS-, 

0 PERFORMS' THE - INTEGRATION OF THE F J V t- DIFFERENTIAL EQUATIONS, 
c THE. STAR I IMG VALUE IS THAT ANGLE AT WHICH THE LAYERS HAVE MERGED. 

0 AivJu THE 'FINAL VALUE. «H { CH PRESUMABLY OCCURRS FOR THETA LESS THAh PI , 
q 13 QETER MINED JN S.JBRQU1 J NE -QUIP- BY COMPARISON QFTXO DIFFERENTLY 
G CALCULATED VALUES OF PHYSICAL. LENGTHS, 

G 

CUM-MON/CONSTS/P I I RUN I V 

CUrlMON/CONf AC/GONV (10.4), UN (4 ) * I UN IN. I U N 0 U T 

CUMi-10n/IUE'RT/I UF.AO . INF , JET , J TERM , L A Y£R , M I X , MJBOY , Ml I Ml , M2 l NT, 

1 J E X I T , I P 1 T u T , JRAT 10, I is T A T 7 I T 0 1 A L , IivFRAT, IPTRAT , JHETRN~ 

C 0 ri M 0 N / u 0 1 T/JBA S E , J C E H T K , J E X I T , J F A C E , J S r H E R , J 3 T A R , 

1 J i ERSH, MAX , MERGE , MOD ,'NO, NP I . Nt> 

0 0 H ■ ID N / A E R 0 / A ( 10,7) , C 0 , C 0 -"'i C { 1 3 ) , CP ( 10 ) » CT.EhACh ( 10) , 

1 I t ! A L ( 11/7), GAMMA ( 12 ) , P ( 12 ,7 ) ,Q( 1 B ) , 

' 2 RtiO ( la , / ) , I ( ID ,7 ) , V ( 10 ) , LOOT ( )>) , 7 ) , rt'MQL U») 

C i 1 H 0 -j /GEO!!/ a l, P FI A , A R ( 14 , 14 ) , A' (14,14), 

1 T‘P-' i A ( 14 ) , >; ( 14 , 14 ) , Y ( 14 , 14 ) , Xi. U U.4 ) 

r i j M H Cn/KO 0 T / i . S S w CM, C APR A, R H 0 E S , U E S , X B A R I , X K , X L A M , R C , R S S l 
0 u . 1 . 1 0 im / /. / t HT/Z.iTl , it, T2 , ?. M 13 , 2wl 4 , Xi'.U , XNU1 , YfU , Y K 2 , Y K 3 , Y S 3 ( 5 ) 

0 I MENS ! ON PRO T ( 6 ) , YoS T AR ( b ) , 'JURY ( 5 ) , AjX-( 1-6,5) 

£X1 ER„jAL FCT3S , ou Ip , ENT 30 , CQU3D 
C 

0 9 h F‘JR;iA I ( '2ERR0R IN INTEGRATION SUBROUTINE, 3 S T A R = ' . 1 P E 1 3 • 5 » 

1 'I HE T ~ ' , ! 4 , / ) 

C 

T Y U E 12 

1 2 f' 0 R ; 1 A I ( ' E N T E R 1 1 i C. h F, R G E 2 ' ) 

] UU ! =8 

[ j ! * .1 M = b 



A- 30 



X 4 4 1 1 

i 4 4 p f/, 

1 4 4 3 0 
14 4 4 4 
14 4b 0 
1 4 4 6 1: 1 
1 4 4 7 | 
1 4 4 rf 14 
1 4 4 y b 
1 4 8 0 0 
14b 1.1* 

1 4 •••: 

1 4 b ,5 14 
1 4 b 4 0 
1 4 b b u 
14b60 
1 4 b 7 0 
1 4 b 0 [5 
1 4 b 9 p 
1 4 6 0 0 
1 4 6 1 0 
1 4 6 >! 0 
14030 
1 4 6 4 0 
1 4 6 b 0 
1 4 6 6 0 
1 4 6.7 0 
1 4 0 0 9 
1 4 0 9 0 
1 4 / 0 0 
1 4 7 1 W 
1 4 7 2 0 
14/3 0 
14/ 4 W 
1. 4 / b 0 
1 4 7 6 0 
1 4 / 7 p 
14/00 
1 4 / 9 0 
14000 
1 4 0 1 0 
3. 4 8 2 0 
14 830 
1 4 8 4k; 
1 4 8 b 0 
1 4 8 6 0 
1 4 8 / v5 
1 4 8 B 0 
3. 4 H 9 0 
1 4 9 a A 
1 4 9 1 0 
1 4 9 2 0 
3. 4 9 ,j 8 
1 4 9 4 0 
1 4 9 b 0 
1 4 9 6 (?) 
.1 4 V 7 0 
:l 4 9 3 7 
X 4 9 9 W 

1 S 1 3 /; <,T 


1 b'Hp = l , W / F l, 0 A T (NU1H) 

C 

C THE F Ot.t On ! Mb CAU. 13 NECESSARY B E C A U S E THE I N I f I A U v Al.UES 
c Of YSSTaH ARE 0 A (. C U t, A T E 0 IN SURROUT i NE d'CTSS- , 

C NS 3 K OH 1 3 US 10 T 0 STEER -FCTSS-’ TO CALCULATE INITIAL 

c values a no id s/.jp calculations for 'ihet greater than thetainsj, 

0 

C XBARl 18 THE INITIAL VALUE OF ThET AT T HLT A ( MERGE ) , SSTAR IS 0,0 
X ii A R I -"The T a < . URGE ) 

If ( X 8 A R i , (i T , THET A ( 3) ) XBAK1= ! META C NS > 

Cl' ' 

NbSWCH-l 
S 3 T A R *& , 0 

CALL F C'f 3 3 (SSTAR, YSSTAR, DERY, 1 ERROR’) 

If U ERROR, E ’3, 1) GO TO 960 

0 

N 3 S W C H s 2 

TYPE .1,7 , (YSSTAR(KK) ,KK = l,b) 

PKHf( 1)50,0 

PRMT ( 2 ) =P 1/2 , 0-rnLI A (MERGE ) 

c THE S T L r SIXt |S SET INITIALLY TO 1.0 DEGREES, HOWEVER, THE 
0 I M T L G R A I i 0 N 3 U ti K 0 1 1 T I N E H A Y C H A N UE THE STEP SIZE, 
PRWr(9)-l,!//0OfiV(l, lUiviN)” 

PKM1 ( 4 ) =1 , 0L«4 

0 

JM THETA (MERGE) ,Lf . P 1/2,0) GO TO 123 
JM THETA (MERGE ) ,l.T , 1 HE TA (NS) ) GO TO ?2« 

XbAR I s THE i A (,vS)+ FAN ( THETA ( MERGE ) -THETA (NS ) ) 

GO TO 320 
C 

G YSSTARd ) = PoO fr-s’-iOOT/ ( A* ( OSPmER , 1 ) « R H 0 ( INF , J S T A ]' ) «V ( INF > ) 

C THAT | 3 = H 0 0 T / W L D T ( INF, 1 ) 

C YSSTAR ( d) si.ioAK#5U8AR/V ( dF ) 

C YSSf AR(8)3 Hi3AR» = pEAR/F.n'!mAL( I ME » 1 ) 

C YSSTAR ( 4 ) =CdARsCO\ ! C 

C YSSTAR (■>) s M u 0 I R 8 = H A S S FLO w tr .'TRAINED FROM THE DEAD A I R REGION 
C [ROM THE MERGING POINT 10 THE E ■ ■ D OF THE INTEGRA] ION NORMALISED 
C BY WDqT \ 1 OF # 1 ) , 

c 

120 1)0 13 0 dl, no IK 

130 DfcRYUdTLbP 

C 1 NT EGR A] i ON FhOM THE T A ( MERGE ) TO f> I / 2 , 0 

CALL H F' C G ( FT! v T , Y 3 S T A R , 0 L i » N 0 1 FT , I FTL, F , F C I S S , 0 U F F , A U X , I L R R 0 R ) 
IF ( I H L F i G F , 10) GO TO 90'?" 

C 

PKiTi'UdPK,; T<2; 

22/ DO 23 A m» NO I K 

2 30 D L F‘ Y ( i ) = TEMP 

P h M i ( 2 ) s T K I-: T A ( N S ) - P i l r A ( ' ’ E R G E ) 

C INTEGRA 1 ION K R 0 H PI/2 TO T HE T A ( NS ) 

CALL hi’GGCF R : T , Y 8 S TAR, 0 E R Y , 0 Q 1.1, I H L F , F C T 3 S , 0 U T P , A 0 X , I E R R 0 R ) 
!f ( I M L F , G T , l»j GO 1 0 900 

0 

pH Ml { 1 ) sRK'-.T ( 2 i 

3 ?. 2 : j 3 S w 0 1 4 a 9 

OU' 3 3 0 1 si , NO JM 
o30 OLRY ( j ) sTtPP 

PKNT ( 2 ) = Ti-'T TA ( I - S 5 + T AN ( f* I - 2 , fc#F‘KHT ( 3 ) - THE T A ( NS ) J <- X H AH I 
t: INTEGRA I i ON. FROM TOLU (NS) TO THE INTEGRATION LIMIT, L'ldCH IS 
C FOUND PRO:/ | HE MATCHING OF PHYSICAL LENGTHS, W ! C AC FF NEARLY 



1 9 0 1 !■; 

1 9 0 2 0 
1 9 0 3 0 
1 3 U 4 0 
i 3 y 5 y 
13M60 
x :> w / u 
i g w b w 
i g y 9 y 
a ^ ,i y y 
i 3 .i i u 
X 312 w 
15130 
1514 0 
X 5 1 9 0 
1 5 1 6 0 
1 5 1 7 W 
1 3 1 B 0 
X 5 1 9 y 
15000 
15010 
1 5 2 0 0 
15030 
1 5 0 4 0 
150 53 
1 506m 
l 5 0 7 0 
1 5 0 B 0 
13 0 9 0 
15 3g'0 
13 31 0 
1 3 3 2 0 
13330 
13 3 4 0 
1 3 0 3 0 
15 3 6 0 
3. 3 3 7 0 
1 3 3 h 0 
1 3 3 9 0 
13 400 
134 10 
13 4 2 0 
13 4 30 
1 3 4 4 W 
1 3 4 3 0 
13 4 6 M 
1 3 4 7 W 
1 3 4 K 0 
1 3 4 9 0 
1 3 5 0 0 
13 3 1 0 
1 3 3 0 0 
3. 3 3 ,5 S3 
. 1 3 4 y 
1 9 9 9 0 
1 3 9 6 0 
1 3 9 7 (•: 
1 3 3 c 0 
1 3 3 9 0 
! 9 o 0 


C AS LARGE AS PI, 

CALL HPUC ( PRMT ,YSSTAR, DER Y , N(i | H , J HLF , FC T SS , OU r P , A UX , I E RR OR ) 

I M I Ht,P , ST , 10) GO JO 900 
C 

C T HI-' I5TLGRA H0O. {S NOW FINISHED, THE PROFILE PARAMEIERS L AMU A ( XL Ah ) 
C MU(XHU) , 'AMU MU (X Mill) At\’U KAPPA WERE E V A L U A T E 0 IN SUBROUTINE 
c: - 0 U T P - IN OHUtR TO TERMINATE THE I j EGRAT I ON PROCESS, 

C 

T V PM 16,; i SSL, XL A H - X M U , X N U 1 

16 FORMA I ( 1 RbSy , L, AI-iOA , oli, [iljp ' , 1P4E12 , 5 ) 

TYPE 17, ( Y S S T A R { /, K ) , |< K ~ 1 , 3 ) 

17 F ijR.f A T ( ' Y<v = ' , 1P9L13 , 3 ) 

C 

C CALCULAIE the merged enthalpy, 

■ CALL UUb ( A ,j, RSSL* ENT30, 2NT3) 

E ST r H A L ( I 0 E A D , i r,‘ F)=t N T 3 / 1 NT 2 

ENTUALt IDEaD,1)sENTHAL( I DEAD, 1 NF ) »ENTH AU ( i N K » J, ) 

C 

C V A L C U L ATE T H E " E H G F, D C 0 N C V. NTRATl 0 N , 

CALL UGb ( 0 , l? , R$SL • CQN.50 , 2NT4 ) 

C'-RTC ( l P E A U ) 3 j£ NT 4 / 2 N T 2 ' 


C 

TYPE 1,9 , ENT HAL ( IDE AD , 1 ) , CUNC < I DEAD > 


13 

FORMAT (• H i CONG 
GO TO 76 3 

• , 1 P 2 E 1 3 , 4 ) 

90 0 

WRITE (I 0 U T , b 9 B ) 

PRMT ( 6 ) , 1 H U F 


J ERRORS! 

y 6 vi 

RE 1 URN" 


V 

L'vD 


V » *» ♦ • l 

I 1 1 M t i ♦ | » f M • ♦ • » « 

j • « j • t » « i I • t l * ( i • J • i « » ' ♦ ♦ » ♦ » » * » l 1 f » » » * M M f 1 ‘ 


G 


SUBROUTINE OUTPUT 

c CONVERTS INIEHNAL INFORMATION TO THE PROPER SYSTEM OF UNITS 
C AND OUTPUTS "IT, 

G 

COMMOin/cdnsts/p I » Run iv 

c U M [■! o N /GO N F AC/C 0 n V ( 1 / , 4 ) , U N ( 4 ) , J U M I N , I U N 0 U T 

COMMON/ 1 0 E w T / I D E A 0 , INF , JET, JTEKM, LAYER* MIX# MJBDYl Ml INI »M2INT , 
% 1 1. X |T f I P I T 0 T , IRAT 10, I S T A T 7 ITOUL, INFPAT , I Pi RAT , JHETRN 

c 0 HMOn/uUE vT/UcASE, JCENTR, JfcxlT, JFACE, JSPiiER, JS T A R , ' 

1 J ! LRSH , h AX , ML" ROE t MOD, *D , NP J , NS 
COMMON/ p AGL /GAT ( 4 ) 

CDMMOu/AEPO/A ( X /,/), CO , CONG ( 10 ) , CP ( 1.0 ) > CT , EMACH { 10 ) , 

■ 1 L i\' T n A L ( 1 ! 3 , 7 ) ( G A ! • s ■ A ( 1 L ) , p ( 3 0 , 7 ) » Q ( 10 ) , 

2 RHO ( 1 / , 7 ) , T ( .10 , 7 ) * 7 U / ) , LUO f ( 10 , / ) , y KQL < 10 ) 

G 0 M iT 0 u f G 1 0 F /ALP H A , A R ( 1 . 4 , ;l 4 ) ,2(14,14) , 

1 T 5 0 T A ( 1 4 ) , X ( 1 A , 1 4 ) » Y n 4 , 1 4 ) , x N u ( 1 4 ) 

0 

J ou T = b 

, it Ip. (J OUT, 12) 

1 ? F u H M a I ( ' t 'v T E H l "I G OUTPUT 
U L i u ft N 
£ 4 0 

0 


F u 0 0 f 1 On COTAN ( Z ) 

o G ALGOL A 1 L j I lit. C C T A N G E N f OF 2 ( /. I N RADIANS) , 



.1 b 6 1 0 
126 20 
1 b 6 ,5 b 
1 b 6 <] 0 
, 1 . 

1 b 6 ft F 
1 b 0 / b 
lb D(<t 
j, b ft 9 !/> 
:.i b / y y 
lb/ lb 
i b /k’y 

1 b. / o >/j 

1 b / 4 a 
i b / b y 
i b /ft W 
ib/yw 
lb'/ (3 a 
i b / y a 
1 b 6 y a 
1 b o 1 0 
.1 b a 2 a 
1 b b y « 
.1 b U -i /; 
1 , b'b 5 a 
; 1 , b b 6 W 
:]. b y / a 
1 b 60 a 
1 b d 9 a 
ibvyy 
lb9 L y 
l b y 2 a 
1 b 9 ,5 3b 
1 b 9 4 0 
1 b 9 b a 
1 b 9 6 /) 
i b 9 / a 
1 b 9 3 a 
1 b 9 9 a 
1 6 W 0 0 

1 6 a i a 
i ft w 2 0 
1 6 o ;.s ; j 
1 ft U 4 0 

1 b v> b a 
1 6 0 6 W 

1 6 a / y 
1 6 y h y 

1 6 3.; 9 a 
161 CO 

1 6 1 j y 
1 6 1. 2 0 
t ft .1 y ;: 
l ft 1. 4 14 
1 o .1. b 3/ 
1 6 i b y 

I6i ,v; 
:i o i y 
i6i v y 
1 6 , ' . ' 


GU I AK-UUri ( i ) /S J \ ( i ) 

ruJurn - 

£r:u - 

C . 

G ’ 

P U-'A.T 1 -ii\ T AG ( £ ) 

C UALCU|,A jLS THE TaMGEuT OK i ( 'l i N ,K A 0 I A N S ) , 


r A : j a 5 i t 2 ) ✓ C -V S « 2 > 
R t r !J R :'■) 
t: >0 


l l < l • l t l ■ ' ' < < M > i < M • > t M ' I < ' ' * 1 ' ' < ' ' ' ' * ' I ' ' * • ' ' 1 * ' ' ' 1 I > ! I > ) > • i ) I • I > 

c 

f U i\' C T 1 0 a £ K F ( if ) 

c C A L C U L A i ' E S tKt ERROR FUNG 11 ON OF 2 , . 


X'AUS ( 2 ) 

IF' ( X , UT , 4 , 17 ) GO TO 100 

FRF =1,0 

go to 200 

1 00 T- 1 . 0/(1 , F+0 , 3 2 7 2 9 J. 1 » X ) 

£ k F = y , 2 b 4 o 2 9 b 9 2 + T * ( "0 i284'»96736 + T#( 1, , 421A13741 + T 
1 b 3 " 1 . 4 b 6 1 b 2 0 2 7 + 1 , 0 6 1 4 3 2 4 2 9 # J) ) j 
FRF =x , O-FXP ( ~X*X ) * I^FIRF 
200 E.KF=SiGMEf<Ff if J 
R L [UR N 
L ^ 0 
G 

0 r * ■ i a t t t f * a » ) f t i ! M « i m * ( s M t a * a f a a « f | i a t a a i t t i t i » a a » t a » j • I a * t M • 1 1 

c 

F'JNCT ION T R A T ! 0 ( G A M , F n ACM) 

C CAlaCULA ILS 1 ’hf. adiabatic TOTAL TO STATIC TEMPERATURE RATIO, 

c ~ ’ 

T.RAT I0S1 , 0+ < GAK-1 , 0 ) /2 , 0#FMACH*EmACH 
Rt T UR I 
1 0 0 
c 

0 

F u OQ T 1 Oi'i P R A T I 0 ( Ci AM, E M ACM) 

u C A l. C U l A .! E S THE ISE%TRQP1C TOTAL TO -STATIC PRESSURE fcUTJO, 

G 

F A I J U - T R A T I 0 ( G A M , E H ACM)# * ( G A ! V ( G A M -1,0) ) 

R t T U R i<j 
F s J 
C 

(m H 9 « M i • ' * * * * f ' ' ’ M M * « ? • » ( M ♦ ♦ > ' ! M » f 1 ♦ » » » * i * I » M • • » f I • M » I « » » I M ' 

U 

rUMCTlOM RmIORAT (GAKi/EMACHJ 

C CALCULA i t.s I HE 1 SF'lTRCP 1 C TOTAL Tu STATIC DENSITY RATIO, 

C 

firiORA !' a T K A T I 0 ( GAM, F F'ACl-i ) «#( 1 ,0/ (GAK-j. , 0 ) ) 

n t i U R '4 

FRO 


i 1 



F 0 C r 1 C.s PR I TOT ( GAM , E lA-CM ) 

• • _-. r , a- « . A- 3 3 - - — 



*s£> 


kS> 




■& 


■^ 3 > 


!. O 1 '<* 
i 6 2 2 W 
16 2 30 
i b 2 4 / 
1 ft 2 2 8 
1 ( i 2 6 /-i 
1 6 2 / / 
16238 
.1 6 2 9 0 
j 6 .3 / W 
1 6 >5 1 8 
l 6 o 2 0 
1 6 3 3 0 
1 6 o 4 a 
1 6 3 2 14 
. 1 , 6 3 A 0 
16370 
1 6 3 >i 0 
16 3 9 0 
16 4 0 0 
16 4 1 a 
1 6 4 20 
164 30 
16 4 4 D 
1 6 4 3 0 
16 4 6 0 
16 4/ 0 
1 6 4 3 0 
16 493 
1 6 2 0 0 
1 6t>10 
16 220 
16 2 3 0 
16 2 40 
16220 
16260 
1 6 27 0 
1623W 
1 6 2 9 0 
1 6 6 0 0 
1 6 6 1 0 
1 6 6 2 0 
1 6 6 3 3 
16 6 4 0 
1 6 6 2 0 
1 6 6 6 3 

I. 6 6 / 3 
16 6c 0 
1 6 o y ;j 
1 6 / 0 0 
1 6 7 j. / 
16/2 0 
15/3/ 
i o / 4 0 
:i o / 2 3 
1 6 7 6 3 
1 6 / / / 
16/3 ti 

J. 6 / y 0 
1 5 b , ; y 


G RALEIGH PHUT FORMULA, CAL COL AT PS T Ht RATIO OF THE TOTAL PRESSURE 
C 2 £ H I N Q A NORMAL SHOCK TO the UPSTREAM STATIC pressure, 
c ' 

I E ( E M A C H , G T , 1,0} GO TO 100 

PPIIC’I =PRATIO(GAH.EMA0h) ' , 

R z. T U R n . . . 

100 G '1 P = G A + 1 , 0 

GhH=GAH-l,0 \ 

S U > M - T. M A C H « E M A C H 

PH { TO '( = { ( GMPvSGH/2 , a ) ( GAM/GMN ))>'>(( GrlP/ ( 2 , 0 #GAm»SQM-’GMN ) ) 

1 « M 1,0/GMH) ) 

KE TURN 
EGO 
U 

c 

F 0 U GUO K A R A T I C ( G A M , F. M ACM) 

C CALCULATES THE 1 SE'-TPUP J u STREAM TUUE ARtA-R-AT |~0- A/A« , 

C ' ' 

GMP- ( GAM+ 1 , 0 ) /2 , 0 
CMHsGAH-l , « 

ARAT 10= ( (l.,0*GKK72|SJ*EHACH#EMACH)/GMP)*»{GHP/GMN)/EMACH 

return'' 

END 

c 

c 

F u N CTJO n P h M U ( G A Pi » EMAGH , I ERROR ) 

G G A L C U L A I E S T H E P R A i : D T L -HEY E R T U R N I N G ANGLE ( N U ) . 

C 

93 FORMAT (34 H? THE PKAnOT L-ME YEH FUNCTION IS HOT » 

1 2 i H SPECIFIED FOR MACH *.lPEl2,4»/) 

C 

I UUTsb 

JMEMACm,LT. 1.0) GO TO 100 
GO TO 200 

108 WRITE ( 1 OUT. 98) EHACH 
|ERR0R=1 

R E T U R N 

280 CUMSQrT ( (GAH + 1 ,»)/ (GAM-1.0) ) 

pttNUstiM«ATAK ( SORT ( EhACH#EMACH~l . 0 ) /GH ) - A COS ( 1 , 8/ EHACH ) 

R t T U R n 
F.nO 

c 

V l I l i M i i ! ‘ i I I | ‘ I 1 I I H 1 ’ ' 1 1 .«.•»,*«.. ■>,'>••••••••.••> ‘ 

c 

F U k ‘ C T 10 k VASTAR(GAMEKACH) 

c calculates the function v/a*, 

C 

VAS T A K •* E ! ; A C M « S u R t ( ( G A H * 1 . / ) / ( 2 ,0 + ( GAM- 1 , 8 ) »E_MACH»EMACH ) ) 

R6 T urn 

E*i> 


F U K C T I 0 \ A K A C H { G A M , AW. M 3 1 , I ERROR ) 

C G A L G U L A ! E S H Y HERAT ION THE m A C h NO. FOR A GIVEN A/A«, 
C |'T S ■/ a 8 suu S 0 n I G , M S k = 1 SUP E <■>’ S 0 M I C , 

C 

c 0 M M 0 N / F C T A 1 / G A M h A , A R E A * X X 

A-34 



l 6 B 1 0 



1 7 1 L R N *' L FCTAK 

1 6 b 2 C 

c 



1 6 « 3 0 


29b 

FUKma I ( '/CONVERGENCE FAILURE (MACH NO, FROM AREA RATIO) 

1 6 b 4 Vj 


1 

• MACH NO, = ' f 1PL12, 4, » FCTAM= ' * E12 . 4 , ’ IERb',I4,/> 

1 6 b 5 v) 

c 



1 ft b ft 2 



T'GU T = a 

.1 6 o i 0 



f. M 1 = 1,0 

1 6 U 8 id 



)) ( M S w , t. Q * 1) GO 10 120 

.1 6 b 9 iv 



’ l't.Ln = ~0 , 2C 

3. ft 9 3 3 



C u T 0 1 ft 3 

x ft y i w 


120 

QLLM=1 , b 

169 20 


160 

L -i 2 = E. M 1 + D E L M 

16 9 3 0 



A R 2 = A M A T I 0 (GAM, E M2) 

1 6 y 4 U 



Jf(AR2 » G T , A R ) GO TO 200 

16950 



E 01s EM 2 

16 9 60 



jMEp.1 » L F , 0,21) U E L M s 0 E 1. M / 2 » 0 

1 6 9 7 0 



GO TO 163 ■ ■ .. - 

1 6 9 8 0 


230 

• G A M H A 5 G A M ■ ’ 

16 9 9 0 



A k t A = A R 

1/000 



C ALL P-G t W ( E M A C H , V A L , F C 7 A M » E M 1 » E fi 2 1 1 • F E " 6 , 1 K 0 , 1 E R )- 

1 / 0 1 0 



IKUEH.EQ. 0) GO TO 300 

1/020 



iv RITE { l 0 0 T » 2 9 y ) EhACH , VAL , I E* 

1/W30 



ILRROR-1 

1 70 4 0 



return 

1 7 0 5 0 


3 3’/ 

A M A C H s E h A C M 

1 7 0 6 0 



RETURN 

170/0 



END 

17 080 

a 



1 / 0 9 0 

c 

9 * * * 9 

» j » ' ‘ « t ) « * • m ' * > ♦ * # • • * » * i * • i t * | * * » » * • ♦ * M M • ♦ * f * M » * • M 

1/100 

c 



1 / 1 1 0 



FUNCTION FCTAM(EMACN) 

1/120 

C 

nus 

FUNCTION IS CALLED BY FUNCTION - A M A C H «■ , V I A SUBROUTINE 

1 / 1 3 0 

c 

~ P G E 

W- » fO ITEWATJVELY FINU I HE MACH NO, FROM THE GIVEN 

1/14 0 

c 

area 

RATIO (A/ A*), 

1 / 1 5 0 

c 



1 / 1 60 



COMMOn/FCT Al/GAM, AR, XX 

X / 1 7 V) 

b 



1/100 



PUT AM sARA T I 0 ( GAM , EM A CM ) / A K - 1 , 0 

1/190 



RETURN 

1 / 2 3 0 



END 

1/21 0 

c 



1/22 3 

c 

» « » 0 P 


3. / 2 3 0 

c 



1 / 2 4 0 



1 ' U N c T 1 0 N R j 1 M A C H (GAM , R H 0 T S ) 

1 / 2 13 3 

r; 

C A\. G 

ULAILS 1 HE MACH NO, FROM TME J SEN TROPIC TOTAL TO STATIC 

17 2 6 0 

0 

OEMS 

1 ty ratio, 

1 / 2 7 0 

(J 



i 7 2 80 



RhMACil'bQRT ( 2 . 0/ (GAM-1. , 0 ) «• ( ( RHO TS## ( Q A M - 1 , 0 ) ) - 1 , 0 ) ) 

1/29 0 



RE TURIN 

1 / 3 0 W 



END - 

1/313 

7J 



1/32 0 

0 

$ ? 9 8 f 

f8 9 a*8»»t****»**Pee*?»?*#*f6>*** tltf********* »•»!*#•»>*, •! 

1 / 3 3 w 

t; 



1/340 



F « N C r 1 o k P A c H ( G A M , P T S ) 

3. / ,5 3 0 

C 

G A L C U L A 1 1- 3 rut MACH NO, FROM THE 1 SENTK0P I C TOTAL TO STATIC 

1 / 3 6 0 

c 

P R S 

S'JRt RATIO, 

X / 3 / 0 

G 



1 / 3 6 y 



PilACHsSQRT ( 2 , 0/ ( GAM-1 , 0 ) a v ( P FS»» ( ( GAKrl , D ) /GAM ) ) - ), , 0 ) ? 

1 7 3 9 0 



1!- ! IJ R N 

i 



ER° A-35 


A-35 


i / n 0 

G 



1/42 0 

P 

V ? 

* 9 8 ? 


J. Mo,:'. 

c 



1 MM 



FUNCTION XlvUCHtGA H . X M g , I E R R Q H ) 

1/4|30 

f 

CAI.CULAIE.5 bY ITERATION THE MACH mo. FROM THE pRANDT L«MAYER 

1 7 4 6 W 

c 

I SEN 

TROPIC EXPANSION ANGLE nU, 

i / 4 y [•:* 

c 



1 / 8 k5 



C 0 M H 0 N / 0 0 N S 1 3 / P I , R U H \ V 

1 / 4 y 0 



COKMOH/COHFAC/CONV ( IX, 4 ) , UN (4 ) t I U N 1 N , JUnOUT 

1 7 b 3 0 



C U M M 0 N /KOI A 1 /GAM m A , X N U X , X X 

1/210 



E X I E R m A L F C I X M 

1 / b 2 W 

r~1 

V 



1 / b 3 y 


118 

F 0 R H A 1 ( ' L ! H E PHAPUTL-HEYEH f U h N J W G A NGEE t NU = » , 1.PE 12 , 4 » 

17 2 4 0 


1 

> IS GREATER T H A f\* 9 0 ,'0 (3 F. G R EES, ' , / ) 

1/bbw 


143 

FORMA H 1 0 T HE PHANIJTL-MEYEK TuHNJNG ANGLE i MU= ' , 1PE 12 , 4 , 

1 / b 6 0 


1 

' IS LESS THAN 0,0 DEGREES,',/) 

1/2/0 


696 

FORMAT ( '/CONVERGENCE FAILURE (MACH NO, FROM ANGLE NU).* 

:1, / b a 0 


,1 

' MACH NO , = ' , 1PE12 , 4 , ’ F C T X M = ' , E 1 2 , 4 » ' IER='»H,/) 

1 / 2 9 0 

c 



1/60 0 

c 


XNUMAXS (SOS r ( (GAM* J, ,0)/ (GAM-1 ,0) ) M. ,0>*P 1/2,0 

1/610 

0 



1/620 



I 001=8 

1/630 



Ir (XNU,LT »P 1/2.0) GO TO .120 

1/64 0 



HXNgsXNWttCONv ( X> IUNIN) 

1 / 6 3 0 



WRITE (I OUT, 11a) t X i\ U 

1/660 



GO TO S>00 

1 7 6 7 0 


123 

I r ( X N U , G T , B,K) GO TO 1,53 

17680 



/ X N ij = X N U » C 0 M V ( 1 , IUNIN) 

1/69 /! 



WRITE (I OUT, 148) t X N U 

1 / / K 0 



GO TO 200 

1 / / 1 


180 

c M 1 = 1 , 0 

1 / / 2 0 



[) ti L M " 1 , b 

l / / 3 /• 


2 m 

E H 2 = E M 1 * 0 E L M 

1 / / 4 0 



XNUlsRHNU ( GAM , E M 2 , I ERROR ) 

1 / /!50 



P ( IEKKOR.EQ, 1) GO TO 630 

1/76W 



IhCXNUl , G T , X N U ) GO TO 3 3 0 

1 7/70 



E‘ M 1 = E M 2 

1 / / a 0 



GO TO 2 m 

17 7 90 


3 a % 

GAMMA B G AM 

1 7 8 0 W 



X N U X - X N U 

1/613 



CALL HGL w ( EMACH , VAL , FCTXM , E M ± , E M 2 , l'.0E~6 1 100 , IER ) 

1 7 b2W 



l r ( I E K , E Q < 0) GO IU 4O0 

1/83 0 



WRITE. ( I 0 U T , 3 9 o ) EMACH , VAL , I EK 

1/84 0 



G o i n b y ? 

1/8 5 0 


4 07 

X i'iM ACn = E MACH 

1 / 8 6 0 



GO TO 603 

1 7 8 / 0 


907 

I ERROR? 1 

1/88 0 


6 A /’ 

R 6 1 UR N 

1 / 8 9 0 



ENO 

! / 9 3 -0 

c 



1 / 9 1 0 

p. 

L,' 

9 * « ♦ 


1/92 0 

G 



1 / 9 3 0 



f JNCT I 0 IV F C T X M ( E H A C h ) 

1/94 0 

c 

MIS 

F J 4 C | ION IS CALLED GY FUN’CI (On -XNMAC-r / V JA SOPROUT JNE 

1 / V y; 

p 

- P G E 

w- , F Cl I T E R A T I V L L Y KINO THE MACH NO, FROM THE GIVEN 

1 / 9 6 3 

c 

p R A U 0 T ! E Y t R A N G U U K U ( XnU ) , 

1 / 9 / ;j 

G 



■t / l) 

X 7 ■ ' < ' v.l 



C 0 r! M 0 U 7 F 0 T A 1 / G A M , X H U ,XX 

X / V 9 •<.> 
IH-Ho 


1 7 i 

f i.'RMA T ( ' oTliE ERROR IN THE P R A N OIL” H E Y £ R FUNCTION', 


A- 36 



i a a }, a 


1 

* WAG NOT TRANSMUTED, OUTPUT \S P K 0 3 A L Y NONSENSE' ,/) 

180 20 

c 



1 b w 3 



T UU l =b 

x a a 4 a 



V U r x M 5 P M N U ( G A M , E ii A C n , I E K R ) ( X N U H , 3 

l a I ) 6 '6 



IMIEBP.lq, i 5 i'JRIIt (I0UT,lfJO) 

1806 3 



Rl.T'JRiM 

l«o /•/, 



E N U 

i u y 8 a 

c 


1 

i a y ■) y 

c , 

* * $ ? ? 


laiyy 

c 



i a 1 1 a 



(■ UHCT i ON WAVE ( UAH . E.’ACh . A t F , I ERROR ) 

iai 2 a 

c 

G A U C U L A i 2 S fciY | T f.R A T 1 0->: ‘HE TWO DIMENSIONAL OOUJQUE SHOCK WAVE 

1 « 1 a y 

(j 

ANGLE 

FROrj (HE MACH MO, AMI. WEDGE ANGLE, 

xai -1 y 

c 



x 0 1 & y 



COMMON/ GONE AC/CO'-. V ( 10 , 4 ) , UN ( 4 ) , I UN 1 N , I UNOUJ 

1 ti 1 6 a 



G U M H 0 N / K C T A 1 / G A M K A , E M X, ALPHA 

1 a i / /, 



E/IER'nAL KCTwV 

i a l a w 

c 


■ " ----- - - - ~ — — ’ - - 

i a i y a 


118 

FORMAT ( ' S' T h E OBLIQUE SHOCK-WAVE ANGLE IS NOT DEFINE 0 FOR’, 

18 2 0 a 


1 

' macm nQ.=’ , ipehh,/) 

18 21 B 


198 

FORMA I ( 'OCAlCULATiON FAILURE, THE 031JPUE SHOCK WAVE ANGLE 

182 2 0 


1 

1PE12,4,» JS.GREAIER FHAN THE MAX’, ANGIE* ' » EH , 4 , / ) 

18230 


396 

F 0 R M A 1 ( 1 0 C 0 N VERGE N C E FAILURE (WAVE ANGLE FROM MACH NO,),', 

18 2 4 0 


1 

I WAVE ANGLES’ ,1PL12, 4, • FO T W V ? * , E 1 2 , 4 , • IERR' , J4,/) 

1828 0 

c 



16 26 0 



I 0 D T = 8 

182/0 



I F ( ERACH , GT , 1,0) GO TO 120 

1 6 2 8 y 



WRITE U OUT, Ho) Eh ACM 

18 2 9 0 



G U TO 3 

188 00 


1 2 v 

B 1 1 1 = A $ J M 1 , / / E H A C H ) 

18810 

n 

o E T J, 

IS THE WAVE ANGLE FOR /FRO WEDGE ANGLE, 

18820 



G ! v ! P - G A M + 1 , 0 

18 3 3 8 



EMSQsEMACH»E!',ACH 

18 8 4 0 



SpAMAX= ( GtM : «EPSQ“4 , 2 + SORT ( CMP ) #SQRT ( GRP»EMSQ»F,MSQ 

188 60 


1 

+ 8 , 0 -if- ( G A M r* ,1 t y-)»EHSQ + 16,Z) )/(4 , 0 8 G A H # F M S Q ) 

18 3 6 0 



BAFAXsAb ] N ( SORT ( SB AM AX ) ) 

18 3/ 0 

rt 

V 

»AM AX 

IS THE WAVE ANGLE F OR MAXIMUM UEOGE ANGLE AT THIS MACH NO, 

18 3 8 0 



D t L 1$ = (HANA.X-L'E T 1 ) / 8 , B 

1 8 3 9 y 



DEUX = 1 , 1WELB 

1 8 ‘l 0 8 


1 8 0 

Br-T2 = dEU + DELB 

18 4 1 0 



Jr (BE Vi . G T , D AM A X-QE L X ) DELE3 = PEL3/1 . 99 

1 8 4 2 8 



IMBFI2 f L T , R A M A X ) 30 TO 203 

.16 4 3 y 



/dE r2=HET2»C0vV(l * I UN IN) 

1 8 4 4 0 



1 8 A ,1 A X = b A M a X * C 0 N V ( 1 , I U N I N> > 

1 8 4 8 k5 



i- H 1 1 F (I OUT, 19a) 2bE-TZ,2BAMAX 

i a 4 6 



GO TO 630 

i a 4 / a 


2 30 

E N SS = E M S C S I \ ( B E T 2 ) 8 5 1 w ( 3 E T 2 ) 

1 8 1 6 u 



TANOs 1 A !\ ( HE T2-ALF ) « GMR« EXbS/ ( (GAM-1 . O ) 8 E MSS + 2 , 0 ) 

1 o 4 9 14 



IK TA,nB ,GT , TAi-KBt 1 2) ) GO TO 3U0 

l « 0 a 8 



btf lsdETZ 

1 » y 3. 0 



GO TO 160 

1 B 6 a t:> 


300 

GAM MA=GAM 

1 « 8 8 a 



EMXaEMAUH 

1 8 3 4 8 



A i, P H A = A L F 

1 8 3 3 0 



C A 1. 1. R G L * ( B E T A , V A L , r C r W V . B E T 1 » B E T ? , 1, 0 E - 6 , 1 W 0 , J E R > 

1 6 3 6 i-J 



JMIER,EQ, B) GO TO 400 

1 8 3 / 0 



/Ut- TA - BE T AttCOhV ( 1 > l U*-J j M ) 

1 8 3 8 W 



i,tt 1 I E ( 1 0 U T , 3 9 6 ) / b E T A , V A L , I E R 

1 a 3 V 0 



GO TO 600 

l h ' > ■ ; j 


i y y 

i- A V E s ri F f A • . „ 


A-37 



J. « 6 1 0 
\ 8 6 2 0 
1 B 6 3 0 
18 6 4 y 
1 8 b 5 ? y 
1 y 6 6 w 
l 8 6 7 W 
1 B 6 y y 
1 o 6 9 y 
i a i o y 
1 8 / x ;; 
i a / 3 y 
i y 7 3 y 
i a / 4 '/) 
lfi/5W 
18 7 6 iJ 
1 8 / ! 0 
x a / 8 0 

18 7 90 
18 8 0 0 
l d a 1 0 
18 82 0 
i a a 3 » 

18 8 4 0 

i a 8 y y 
1. 8 8 6 0 
1 8 8 7 0 
18 880 
1 8 8 9 0 
1 8 9 0 0 
1 8 9 1 0 

189 20 
18 9 8 0 

i a 9 4 0 

1 8 9 b 0 
18960 
18 9 7 0 
1 d 9 8 0 

1 8 9 9 0 
i 9 0 0 0 
1 9 0 1 0 
1 9 0 2 0 

190 30 
1 9 0 4 0 

1 9 0 a 0 
1 9 0 6 0 
i v y / y 

.1 9 v.) 6 0 

i v y 9 0 

1 9 1 w k 
1911 0 
i y i e i. 

I. 913d 
.1. 9 14 0 

J. 9 1 b y 
,i y 1 6 y 
1 9 1 / l 
i v 1 8 0 

1 9 i. 9 k 


GO ro 600 
800 1 1 R R G H = 1 

600 RETURN 
L ■) 0 
C 

9 ' < I I I • t • > 1 * • I I I I M • I I | I 1 • I' > I I I I | I I ' I ' | • I ■ * I I < | I t I < < I ' I ' t I | i | , 

C 


F u N C T 1 0 n F C T »s V ( tj 1 1 A ) 

c this function is calleo~ by f u n c r i q -.wave- , v i a subroutine 
0 ” P G C 9 - TO IIERATIVtlY F l NO THE OBLIQUE SHOCK ' WAVE ANCLE 

C F R 0 II T H E 01 V E N M A C H lv 0, A □ w E 0 0 E A N G L E , 

fj 

UUhilON/I CTA1 /Gam,EKAGH , A L f* 

c 

G H *" 3 G A d ’*■ 1 » 0 
E M 9 J z s, H A C H # S I N (BETA) 

£HSa=EMSU»EHSO 

T A MR = T A N ( B £ T A - A L F ) # G M P » E M S Q / (1 G A M ** % . 0 > » E M S Q + 2 , 0 ) 

F 0 T iV V = T A 9 B / T A A* U3 E T A ) - 1 , 0 
' RETURN ' 

eno 

c 

^ • I I • ■ t I I ' ’ > > I I I • < I I I t ! I < t I > ' I | ' l| • | I < | > • • • ' I t M < I I I I | t ' > I 

c 


FUNCTION CFMAK(GAM) 

C C A L ; C U E A i E S THE MAXIMUM VACUUM THRUST CQEFF l CENT , CP, 

C 

Cl- MAX- I 2 , 0 # G A H ) /SOW T ( G AM»G AM" X , 0 ) 

1 #( (2ik5/(GAN + l,0))##(l,0/(GAM-l,0)) ) 

RETURN 
ENU 
■ C 


0 

■FUNCTION C F V A C ( G A M » A R A T » P R A T » l ERROR) 

U CALCULATES 1 HE VACUUM THRUST COEFFICIENT CF, AND THE NOzfHLE 

c Exit to total pressure ratio, 

c 

giip-gam+i , o 

GHP=GAM~i , 0 

t M "AM A C H ( Ci A M » A R A T # 1 » I E R R 0 H ) 

PRAT si', O/PRAT I D ( G A M » E H ) 

C F V A C s S !>■ R 1 ( ( 2 * o # G A 1 i * G A ; > / G M '.)«((2, 0 / G M P ) #* ( G M P / G M N > ) » { 1 , U- ( PRA I 
1 <>« ( GMN/GAIi ) > ) ) +ARAT*PRAT 

P e I URN 

fro 

0 • 

1 t < » ' l ! t t M » i t| • ' M • M » t ( M • M i i i t t » , t j i t , • * t * M I l ' • i » | I ♦ ( » » l ' » t f * f t M 

c 

FUNCT i ON; PF I T ( THE t , PRAT ) 

C CALC U L A 1 F- S THE LOCAL STATIC PRESSURE ON A B (,) 0 Y Al AN ANGLE T H E T 

g T.o the Tree sir ear by a modifier ne Etonian equation. 
c p ( i nf , i p no f ) is the phot pressure, that is the total free stream 

. G PRESSURE HER In!) A NORMAL SHOCK AT MACH ( INF) , 


COMMON/ C OUSTS /PI , HUN IV 

C U l i!0 N / I U L 1 1 T / I U E A U , I N F , J E 1 , J T L R M , L A Y E R , M I X , M J B U Y , M 1 1 N T , M 2 I N T , 
I EX 1 T , IP J TOT , I RAT ID, IS f AT » I | 0 l AL . If, PR AT , IPTRA I , JkETRN 
CU'iMWAEKC/A (!(',/)» CO, CONG ( j a ) , CP ( ID ) ,CT, EHACH ( ] 0 ) , 

A- 38 



1 y 2 i o 
l v 2 2 Vi 
X 9 2 3 M 
1 y 2 4 b 

.1. 9 2 5 0 
1 y 2 6.K 
19 2 7 2 

1 y v. 0 0 

19 k! 9 0 
19.500 
1 V 1' 1 0 
1 9 0 0 0 
.1 9 0 o .•-* 
19 0 4 0 
19050 
19060 
19 0/ 0 
1 V 0 H 0 
19 0 9 0 
1 9 4 0 0 
19 410 
19420 
19 4 30 
19 4 4 0 
1 9 4 1> 0 
1 9 4 6 0 
19 470 

194 80 
19 4 90 
19 5 0 0 
19510 
19 52 0 
1 9 5 3 0 
1 9 5 4 0 
19 5 5 0 
1 9 560 
19 5 7 0 

195 0 y 
1 9 5 9 0 
19600 
1 9 610 
1 9 6 2 0 
1 9 6 3 0 
1 9 6 4 0 
1 9 0 5 0 
1 9 6 6 0 
1 9 o 7 0 
1 V 6 8 0 
1 9 6 9 0 
19/0 0 
1 V / 1 0 
.1 9 / 2 M 
1 9 / ,5 0 
1 9 / 4 0 
1 9 / 5 5 
J. 9 / 6 0 
.1 9 / 7 0 
19/ .6 0 
1. 9 / 9 7' 


1 KHTHAU(10, /) i GAHKA ( It* ) ,P(10,7) ,0(10) , 

-2 K0fi ( 10 , 7 ) , T (10 , 7 ) , V (10 ) , !*•' DOT (10 , 7 ) i WMQU (10 > 

U (EMACMC IMF) .GT., 1.50) GO TO 40 
E T! “ P J * t M A CH ( l NF' ) / 2 . 0 

PF I i - ( COS ( THPI ) »*2) M SJN ( [MKT ) «*2 ) # ( ( COS ( Pit) »#2 ).+ B, 380 
1 B T S 1 N ( t; !’i ) •:> v 2 ) ) 

GU TO 50 

40 PF J Is ( Cus ( THF! r ) 0^2 ) + ( 5 J !vi ( ! met ) »«2)«PRa t 
52 f : tU = Pf n»l-'( 1»F' I iPiTOf) 

R t. "I U P N 
F.NP 


c 

c 


c 

c 


0 


c 


t f 6 » I! J { f » « 0 " M M M 8 M » » ’ » « • « » • ♦ M • » * f f I » • ' • » ? > ' * * * * * * I ! M * « M M ' > • » I 

F u r>. c T I 0 N G A S H H 0 ( P , w M 0 L , T ) 

GAl.C'PU 1 ! -S i HE GAS. DENSITY PROP ThE PERFECT GAS L A w » 

C p K M 0 N /CO N STS/ P l , RUN IV 
GAS R H 0 = p •» K K 0 L / ( R U N I V « T } 

return 

ENU 


0 ...... .0. ..J* 1 .*. 

c 

F'UNCT i ON SOUND (GAMMA , NMOL , T ) 
c calculates THE SOUND SPEED FOR A perfect GAS, 

C 

G 0 M H 0 .M / C 0 ft S T S/PI , KU n J V 
C 

S Q y R D = S Q R T ( G A M H A * R U N I V ■» T / W H 0 L ) 

RE 1 URN 
ENO 

C ' - 

c 

FUNCTION PCTRKCX.Y) 

C THIS FUNCTION CALCULATES THE RIGHT HAND SIDE OF THE UY/OX 
C EQUATION. II IS CALLED BY SUBROUTINE ■'RUNGK * , 

C 

CUMriON/F'G I Al/PHI , XX.YY 

C 

F U 1 R K - C I) T A '. ( p H I ■:. ( 1 » O X -b X ) ) 

RETURN 

END 


C 

c 

c 

c 

c 

c 


» 9 e < (* 




PUNCH I ON F C T P ,J ( ii i i 0 T R Y ) 

IH1S FUNGI ION, SET UP IN I HE FORM FUT(X)=D,0 , IS USED BY SUBROUTINE 
- P 6 E W - iNhIG'I ITERATIVELY FINOS THAI VALUE QF 
CF.'TERllNE PLivSITY, PHI CM W { U. RESULT IN M A TCf, 1. NG OF THE 
JET PITOT PRESSURE WITH THE FREE STREAM PITOT PRESSURE, 


,1 

.1 

2 


COMMON/ I DEr.T/I OEAU , I NF , JE T , JTtKM , LAYER .MIX, MJBOY, Ml I N !' , 
I r. X 11,1 P | ! u T , I K A 1 I 0 » I b T A T i I TO ‘f AL , I NF R AT, I P T R A i , JR E T R M 
cDMMON/AERO/A ( ;l , / ) » CD, r.ONC (10) » C P ( 1 e } » CT ? EM A CM ( ’).M ) , 

L l T H A L ( 1 V , 7 ) , G A MM A ( 1 » ) , J* ( 1 K , 7 ) ,0(1 ?■ ) , 

9' in ( 1 w, 7 ) . T ( 1'4, 7 ) > V( IP ) . -"JOT ( TJ >7) > JUJL ( i.0 ) 

A- 39 


M 2 I J ( 



1 V W 1 8 
X 9 « 2 0 
19 0*50 
.19 0 4 0 

i v o o 0 
1 V 0 6 0 
1 9 B / 8 

1 9 B 8 0 

i y o 9 0 
.19900 
.19 910 
19 9 2 0 

1 9 9 *'5 0 
1 9 9 4 '0 
19 9 5 0 

199 60 
1 9 v 7 y; 
.19 9 0 0 
19 9 9 0 
20000 

2 0«10 
2 0 0 2 0 
28838 
2 0040 
2 0050 
200653 

200 70 
2535380 
2 0 W 9 0 
2810 6 
20110 
2 8120 
201*50 
20140 
28150 
20168 
28178 
28188 
28190 
20200 
2 (3 2 1 8 
2 8 228 
2 0 2 3 0 
2 8 2 4 0 
28258 
2 53 2 6 8 
2 82/0 
2552 08 
2 82 9 0 
2 0 3 0 0 
2 0318 
2 0 3 2 8 
2 8 8 3 8 
2 0 3 4 55 
'8 (5 3 5 0 
2 8 3 6 8 
203/0 
2 8 3 ij 8 
2 8 3 9 8 
2 '0 4 8 / 


C 

RH0< JTLRM, I s r AT ) sRHOTRV 

RmQ ( J l mrm , I R A T [ 0 ) = KNO (JET - IT 0 I AU /RHO { JTERM , 1 ST AT ) 

E ?1 A C H L J 1 E R 8 ) = R H K A C H ( G A M M A ( J E T j , R M 0 ( J T E R H , 1 R A T 1 0 ) ) 

P < I ST A | > = P { JL I , I TOTAL, > / HvAT 1 C< GaHMA ( JET > , E y ACM ( JT ERK ) ) 

PL jTEH'S l P I T 0 T ) = P L J T E K H f I ST AT 3 *PP 1 TOT { GAP-HA ( JET ) , E M A C H ( J T E P m ) , 
Furpj-P( jTERM, IPI ipn/P( I.VF, I P { T Q T ) - 1 , 3 
RE T URN 
END 
C 


FUNCTION FCTCE(EHX) 

c this function, set up in the form fut(x>=8,o , is used by subroutine 

g -• F 1 G E W - /WHICH ITERATIVELY FINDS THA i VALUE OF THtTA(ND)# 

a which hakes The static pressure on The blunting sphere equal to the 
a static pressure at the intersect j on " or the jet terminal shock with 
c The jet boundary, 
g- 

C Q M ; ‘ 0 N / C 0 N s r S / P I » RUN IV 

COMMON/ IDEM T/ I U E A 0 » INF , JF. I » JTERM , L A YER » H l X , M JBO Y , Ml J NT , M2 I N T , 

1 I EX 1 r . I P I TOT , IRAT I 0, ISTAT T I To’i AL , INFRAT, IPTRAT , JRETRN 
^ CUNHOn/JUEMT/JBASE/ JCEL'TR, JEX IT, JFACF, JSPHER, jSTAR, 

X J i ERSH » N A X , MERGE , MOO , Np , L'P I , NS 

CJMMCn/aERO/A(10, /> , C 0 , C 0 N C ( 1 0 ) ,CPUS) , C T , E M A C H ( 1 0 ) , 

1 ENTHAL ( 18 , 7 ) , GAMMA ( 10 ) , P ( 10, 7 j , Q( 10 ) , 

2 RhO ( 18 , 7 ) , T ( 10 , 7 > , V ( 1 8 ) , WOO T (10/7) # NMOL (18) 

COMMON/ GL OH/ ALPHA, AH (14, 14) ,R(14, 14) , 

% THE1A (14) , XU4, 14) ,Y(14,14) ,XNuU4) 

C 

Pl~p( INF, IPI fOD/PRAT 10 (GAMMA (JET) iEMX) 

T 1 s T ( JET , J T o T A L ) / j W A J I 0 ( GAMMA ( JET > t EMX> 

Ba ; AR( JEX I T , JSPHEH ) »P ( JE T , I EX I T ) #EKACH( JET) 

1 « 0 K T ( T 1 / i( J E T , I L X I T ) ! / ( p 1 4 E rl X ) 

Y 1 NO , JSPHER ) 4 Y ( NO , JEX I T ) /R ( JSPHER , JEX I T ) 

C X “ Y ( NO, JSPHLK ) »y (NO, JSPHER.) 

S 1 NTH- (Bl + SQRT (8l»bl+4 , 0#O1 ) ) /2 , 0 
T ri E T' A ( N 0 ) - A S I N ( S I N T H > ~ 

P I RY = pF I T ( THE T A ( MD) , P( INF, IPTKAT) ) 

FCICU-P 1 R Y / P X - 1 , 0 
Rt T urn 
END 
C 

C , • ( • I f" >!,,<»• > I « * > • *• • I > • • • • < 1 • • • It,* • • 


c 

c 

c 

•c 


c 

C 


F NR'CT I Civ VEL201 ( t ) 

CALC U L A j. L S I HE 1 cO-O J ReUs I ONAL VELOCITY PROFILE, 

C U M M 0 • , / i< 0 0 T / ' * S S W C H , C A P P A , H H 0 E S , >J t 3 , X B A R I , XK , XL AM , Y 8 , YSSL 

V L L 2 D l = ( 1 , 8 + ERF (XK#H ) J/2.0 + X L A M / ( CQ$H{2 ) #COSH ( L ) ) 

RE 1 URN 

f Tj P 




C 

FuUCTIOn V t L 2 0 2 ( / ) 

C GALCML A TES I HE SQUARE OK THE T 0 - 0 I H L N S I 0 N A L VELOCITY PROFILE, 
C 

TEMP = VL u2Pt ( 7. 5 


A- 40 



■£ 0/41 :/j 
20 4 2 0 
2 0 4 .5 0 
2 0 4 4 0 
2045 0 
2 0 4 6 0 
2 0 4 / V) 

204 a a 

2 0 4' V [•) 
2 0 b 0 14 
2023,0 
2 0 p 2 0 
2 is 2 30 
2 0 2 4 0 
20 2 2 0 
2 02 6.0 
202/0 
2 0 2 0 0 
2 0 2 9 0 
2 0 6 0 0 
2 0 61 13 
2 06 2 S3 

2 06 3 0 
2 0 fc 4 13 
2 W 6 2 0 
2 06 6 3 
206/0 
2 0 6 8 2 
2 53 6 9 0 
2 0/ 0 2 : 
2 0/1 0 
2 0/20 
20/30 
20/40 
2 0/50 
20/60 
2 0 / 7 0 
20/8 0 
20/9 0 
2 0 6 0 0 
2 0 810 
2 0 8 20 
2 0 8 80 
2 0 8 4 0 
2 0 8 5 0 
2 0 8 6 0 
2 0b / S3 
8 0 8 8 0 
2 0 6 9 S3 
20 900 
2 0 910 
209 20 
2 0 9 8 0 
2 0 9 4 0 
2 0 9 5 1? 
2 0 9 6 0 
2 S3 9 / /j 
6 9 9 f 
2 0 9 9 0 
2 1 • ■ *■/. 


V 6 U 2 D 2 - T E H P >1 T E i-i P 

Rtl URN 

END 

c ’■'■■- ' 

Ce,9¥99B!i999»,g9i9t99'999*»9**9***999®S9?t®®*'» fi f , ®®,* st ,®t«9?P e <? fi ,99i9 

C 

FUNQT i ON ENT2D-( £ ) 

c UALt;uuA its rut product op the t* q - d jm t n y iomal enthalpy times 

U 1 HP. VELOCITY PROFILES, 

(3 

C 9 M H 0 4 / I 0 1 ;■ ; T / I U E A U , i N F , J E I , J T P. K M , L A Y E R , M I X ,/M J HOY, M 1 1 N T , M 2 l N T , 
1 It 'AST » IP 1 TOT, I RAT SO, 1ST AT, 1 T 01 A U , INFRAT, I HiRA T , JHETRN' 

C 0 K MX) N / A E H 0 / A ( 10, / ) , CD , CC*C (10) , CP < 10 ) , CT , Ef-iACH (153) , 

1 t NT HAL, < 18 , 7 ), GAMMA ( 10 ) , P’ ( 10- , 7 > , 0 ( 10 ) , 

2 R M 0 ( 1 /> , / ) , T ( X 0 , 7 ) > V ( 1 0 ) > WUO T ( 10 , 7 ) , WI3QL ( 10) 

c 0 M H (hi/ RO 0 T / M S S 0 C H , C A P P A , H H 0 E S , U £ S , X 8 A K I » X K , X L A M , Y.0 , Y S S L 
C U !1 M 0 ,m / /../ I • ■! T / Z NT l.i 7 S'- T 2. , i N \ 3 , i N T 4 , X K U X-N LI 1 , ' Y K 1 » Y k 2 , . Y K 3 »;Y S S ( 5 } 

G ' ' • ' ■ ■ 

T L M P - V E S, 201 (?) 

Q U M IT Y - ( 1 , 0-n: vJHAL ( I DPI At), I - F ) }/2,0 +( 1 , 0 -ENTH AL S I DE AD , INF) ) 

X «tHF (XK»Z»/2,0 +X.MU/(GQSH-(2)»i:0SH<Z)) 

EN4 20'=TEMP#0UHMY 
Rt r URN • - - 
END 
C 

n 

L - J t t , t 9 9 i i * * t • t | 9 « t * ( i t 9 M 1 M f * t M M I 9 < t < f 9 * * < i M * M 9 I M < t t * 9 > * I * I * 9 * t 

c 

FUNCTION C 0 M 20(7) 

C CALCULATES THE PRODUCT OF THE T2Q-0 1 MENS I QNaL CONCENTRATION TIMES 
c the velocity profiles, 

c . 

COMMON/ IDE NT/ I DEAD, I NF , JE I , JTERK , L A YER . M I X , M JBOY , Ml I N I , M2 1 NT , 
1 1 1 X i T , I P I T 0 T , {RATIO, I S T A T » {TOTAL* U-FRAT, 1PTRA1 , JRET.RN 

COMMOn/AERO/A ( 10, / ) , CD, CONG ( 10 ), CP (10) , CT > EMACH ( 10 ) , 

1 EN'IHAUIO, 7) , GAMMA (13) ,P(10,7) ,QU2) , 

2 RH 0 (10,/ ) , F ( IF, 7 ) , u ( 10) , WJOT (12,7), WKOL(10) 

C 0 M M 0 N / R 0 0 T / 1 : S S 9 C H # (3 A P P A , KHQES , UES, XB&R I , X K , XI. AM , Yg, YSSL 
c JMHON/ZZ {ivT/ZNTl , l K T2 , 2 N T 3 , Z .<■ T 4 , XmU , XNUi , Yk 1 , Y K 2 , YK3 , Y SS ( 5 ) 


T t H P = V E L 2 Q 1 ( 2 ) 

DUMMY = COi\C ( I DEAD) « ( 1 , 55 -ERF ( X*<e/ ) ) /? ,3 + X^Ul / ( C OSF ( ? ) #COSH ( / ) ) 
CO N2DsTEMP« DUMMY 
Rtf URN 
E N D 

0 

C 9 9 9 6 J 9 I 9 9 I » l 9 | 9 I 9 | I 9 9 9 9 ( • 9 I 9 I | 9 9 • I 9 9 9 J 9 I 9 1 9 ,, 9 I 9 9 9 9 9 1 [ 9 9 9 9 9 9 9 9 9 9 9 9 I 9 

c 

F ONCT I ON F CTLAM ( XL A’lX ) 

C THIS FUNCTION, SET UP IN THE FORM PUT ( X ) = 0 , £f , IS CALLED BY 
c SUBROUTINE -PbLW- TO I i E K A T 1 V E L T HnD THE VALUE UP L AMD A 
C IN THE I'WO-JIMENSIONAL CASE, 

C 

COMMOn/kOOT/'- SS!..'CH,CAPPA,HHOKS , UES, X B A R I , X K , XL AM , Y £3 , YSSL 
c u M r -1 o |\| / C 7 IM/ZnTI* ZNTZ, ZM ' 3 , £ N T4 , XMU , XNUI * YK1 , Y K 2 , YK t?i YSS ( 2 ) 

E A I ERNAL V 1.201 , V E 1 2 D 2 


C 


X lam- XL AH X 

r; A L L Q C 6 ( - Y 0 , Y F , V L L 2 0 1 , £ P-i 1 1 ) 

C A L L ) G b ( - Y 0 , Y (3 , v t- L 2 0 2 , £ N ? 2 5 
F 0 F L A 14 s V h S <*?• ) / U F S - Y K 1 - / M T 2 / L C I 1 

./I- 





2101 A 
21020 
2 1 0 3 a 
2 i a •’ a 

2 1 0 a a 
2 i w 6 a 
2 1 a 7 u 

21090 
2 1 a 9 v* 
2 1 1 0 a 
21110 
21120 

2 1 1 i a 

2114 0 

2115 a 

2116 
2117 3 
211BU 
2119 K 

212 0 0 
21210 
212 2 3 
21230 
2 1 2 4 0 
21253 
2 3.26 0 
21270 

2 12 8 3 
2 1 2 9 0 

2 1 3 ? 0 
2131. 0 
21320 
21330 
213 4 0 
21392 
213 6 0 
213 7 3 
213 0 0 

2 1 3 9 0 
2 i 4 0 0 
214.10 

214 2 0 
2148.) 
2 1 4 4 a 
2 1 4 5 'A 
214 6 3 
21V 0 
2 1 4 8 3 
2 'i 4 9 u 
219 '0i 0 
2191 0 
2 1 9 2 / 
2 1 9 3 2 
2 1 9 4 v' 
21950 
21969 
2 1 9 / 0 
219!j,: 
01 

21 601 


G 

C 


Rt T IJ R '4 
E N 13 

ft**?«**9# 




C 

c, 

G 

G 

G 

C 

C 


FUNCTION FCT.TU(XSX) 

imis function, set up in the form fct<x)= 0 , 0 , is callep by 

SUBROUTINE "FGLW-. TO ITERATIVELY F J NO THE VALUE OF MU 
j N T h E [ N Q - L) I f'. ENSI 0 U AL CASE, 

C 0 '1 M c / 1 QF.ivT/ 1 DEAD , 1 NF , JET , JTtRM , LAYER# M I X # M J B D 1 , MU M , M2 I M T , 
1 ] Lx i T , J PITOT, I R A I 10, I S J A T 7 ITO?AL, INFRAT, I PTR A T , JRETKN' 

CU { lKtWAfc*0/A< J,0» / ) » .C L) , C 0 N C ( 1 3 ) ,CP(1M) , C T , EMACH < 1 0 ) * 

1 Ew r mAL 1 10 t 7 ) , GAMMA (10 ) , P ( 10 ,7 ) , G ( 1(5 ) , 

2 R 1 0 < 10, / ) , T( 1 2,7 >, V(10)»WUQTU0#;># WMfjL ( ,L0) 

COMMON/ROO'T/ oSSWCH , CAPRA , RHOES , IJES , X8 AR J , XK , XL AM , y/ , ySSL 

G U M M 0 : ■ 1 / t i I N T / 2 r . T 1 1 i 0 T 2 , Z N { 3 , 2 ; v T 4 , X K U , X N U 1 1 Y K 1 » Y K 2 , Y K 3 > Y S S ( 9 ) 
EXTERNAL E G T 2 1) ' “ * 

X M U - X M X 

CALL UGb(-YJ9 ( Ye»»ENT2Dr HNT6 ) 

F Cl Mt.J-YSS(3 ) -YK2«< 1 ,K -ENT HAL ( I DEAD, IMF ) )#*2NT3/ZNTi 

RETURN 

END 

FUNCTION FCTiU(XRUX) 

1'HIS PUNCFIUN', SET UP IN T HE FORM FC T < X 7 = 0 , 0 » IS CALLED BY 
SUBROUTINE -FLEW- TO I T E K A T J y E L Y FIND THE VALUE OF NO 
In THE' [WO-WIMENSIONAL CASE, . . 

COMMON/ I CERT/ I DC AD , I NF , JE 1 , J TE RM , L A VFR f M I X , M J|*D Y , M U N T , M2 I NT , 
1 I L x I T # IP J TOT, I H AT 10, I ST AT ; I T 0 » A L , INFRAT» j P T R A T , jRfc TR N ~ 

COMMON/ AERO/ A ( 12, /) , CD, CONG (lie) ,CP(10) #CT * EmACH (10) » 

F.NT HAL ( .10, 7 ) , GAMMA ( 12 ) , P ( 10, 7 ) , Q(10 ) , 

RHO ( 1 0 , 7 ) , T ( 10 , 7 ) > V (ID ) , WUOT (10,7), W M 0 L (1,0 ) 

COHMO'M/KOOT /NSSUCH , CAPRA » KHOCS » UES , XBA>< I » XK , XL AM , Y0 1 YSSL 
C g M H 0 IV / * i 1 (v T / 2 9 T 1 , t \ T 2 , i K -' I 3 , 2 N T 4 , X H U , X N U ,1 , Y K 1 » Y X 2 , Y K 3 # Y S S ( 9 ) 

E X f C H N A L CD N 2 0 


1 

2 


C 


X n y i - x n g x 

CALL y G fa ( “ Y 3 , Y /• , c o N 2 0 , ?. N T 4 ) 

F C i N U = Y S S ( 4 ) - Y K 3 * C U NC ( I DEAD ) -/NT 4/2 N T 1 

R L ! U R N 
EnO 




« i • 


fa •(#»,,, 

c 

FUNCTION FCTYSSl YSSX) 

c (HIS Fl'uC 1 I go , SET UP JW THE FORM F C T < X ) = 0 , C # IS CALLED BY 
C SU’D ROUT INK -P.GEK- 10 iTEKAl IVELY FIND THE VALUE "OF I HE SEPARATION 
C S 1 RE A M|.. i'NE IN THE TWO-'O I MENS 1 ORAL CASE, 

C 

r u 1 1 fl Q h /IDE j I / 1 1 ) E A U , I ■’ F , U F 1 , J T E R M, LAYER# M I X , M J B D Y , M 1 1 N ] , M 2 I : < T , 

1 It- XI T, I P 1 1 0 T , I RATIO, 1ST AT', I I Ot A U , InFRA I , I P T H A I , JHE ! UN 
CUHhOw/AERD/A ( 10 , 7 ) .CO , CONG ( 10 ) , CP ( IF } , CT # EMACH ( 1/9 » 

1. E t; i HAL ( ID ,/)> GAMMA (10) , P ( 13 ,/),()( l« ) , 

2 PMO (1.0, 7 ) , n 10,7) , V ! 14) , WOO 1(10,7) , N M n L ( 10) 

C 1 J M f i 0 / R 0 0 T / ■: S S U C H , CAMP A , KHOES , UFS , XHA'< J , XK , XL AM# y> '- > YSSL 

A- 4 2. 



2 1 9 1 •/ 


COMMON/ 4 7 1 MT/ZNT1 , 7 N T 2 , 1 NT 3 , / 0 T 4 , XMU , XMU1 , YK.1, » YK2 

ft 

to 

> 

PO 

"j£ 

y~ 

2 1 o 2 0 


EXTERNAL VEL2P1 


219 3B 

c 



216 4 a 


YSSL= YSSX 


2 3, 6 6 0 


CALL 0 G ti ( Y 2 » Y S S L > V F. L 2 Q 1 » Z N T 2 ) 


2 1 6 6 (? 


rUTYSS snook JKETRU, D/YSS1 1) -ZNT2/ZNT1 


2 1 6 1 0 


R 1 1 ij R N 


216 3 0 


ENO I 


2 1 6 9 /j 

w 



21/00 

c , 

♦ f » • ♦ f l 1 1 ♦ * ♦ • » 1 * 1 * ♦ • M » « * » » ♦ » ♦ » M l » » t * » 1 ♦ * * | ♦ • * M » » » M t 

• «•♦*#»*•** 

21/1.0 

c 



21/2.0 


FUNCTION V EL 3 01 ( 7 ) 


2 1 / 6 0 

V 

calculates the three-dimensional velocity profile, 


21/4 0 

c 



21/50 


CUMHON/HOOT/-;SSXCH f CAPPA, HHOES,UES, X B A R I , XK, XL AH, 

R0.RSSL 

217 60 

c 



21/70 


V t !- 3 D 1 zK V E L 2 D 1 ( if-RH) 


21/8 « 


RETURN 


21/90 


ENP 


2 16 0 0 

c 



21610 

0 , 


f > M * M M F > 

216 2 0 

c 



2 1 8 6 0 


FUNCTION VEL3B2CZ) 


2184 0 

c 

CALCULATES THE square of THE THREE -U I MENS l ONAu VELOCITY 

PROFILE, 

2.18 60 

c 




i a 6 0 
2 i y 7 0 
2 x y y u 
2 i y 9 0 
2 i y p '/) 

2 . 1 9 1 0 
2 1 y 2 SsJ 
2 i v 3 a 
21940 
21 L 7 13 0 
2 1 9 6 U 
2i.v/;; 

2 1 v 8 y 

219 91-' 

2 2 0 0 a 
221:110 
2 2 0 2 0 
2 2 W 3 1/ 
2 2 0 4 0 
2 2 1:-' 1 5 0 
2 2 0 6 13 

22 0/0 
2 2 l 'fc><- 
2 2 0 9 0 
2 2 1 '■/• 13 
2 211 F 
2 2 .1 2 0 
2 2 1 3 0 
2 214 0 
2 21 b 1: 

22.1 h w 

2 2 .1 / t 
2 2 .1 ii 
>■ 2 1 9> ; 


IUMMON/ROQT/nSSWCH , CAPPA , RHOES , UES , XSA^ J , XK , XLAM ,H2>, RSSL 

c 

7EL3D2 = VEL202 (Z~R0> 

Rt l IJRi'j" 
tail 

C 

c 

FUNCTION ENT3D(Z) 

C C A t- C U L A 1 E S I HE PKOUUCT OK THE THHEE-D I HENS \ ONAU ENTHALPY TIMES 
g The velocity profiles, 
c 

COMMCN/HOOT/Fx’SSWCH# CAPPA. KMQE S , UE5 , XB AH ! , XK, XL AM, RC , RSSL 
G 

E'.N ! 3D = 2«-f. NT2LHZ-R0) 

rl Turin 

EMU 

G 


• , 


( » t i t i i t ; « y 


FUNCTION C U N 3 D ( Z t 

c CALCULATES IMF. PRODUCT OF THE T H R L E ~ 0 I M L M S I Q N A L CONCENTRATION THUS 
C THE VELOCITY rROFILES, 

G 

CUMHOn/KOOT/GSSWCH , CAPPA , RHOE& , UES, X R A R I » XK , XL AM , R0 , RSSL 
G 

C U P 3 U 3 Z ** C 0 0 2 0 ( £ - R <5 ) 

RETURN 
F. NO 
C 

c 

F U - CT i ON F'CT 3LM ( XL A MX ) 

i': liijS FUNGI ION, SET UP IN THE FORM F CT ( X ) = 0 , 4 , IS CALLEN OY 
' Si.U'KOl.iT l G.E -PLF.i-i- TO I T‘Li<AT I VU.Y F i 0 1 HE VaLuE OF LA’- o/. 



2 2 2 1 2 

C 

IN THE! * HREL-U f NLNS I ONAL CASK, 

2 2 2. 2 it 

c 

J 


2 2 2 3 (4 



CUHMGN/KOQT/X’SSWCH » CAPPA , KMOES , UES, XBaK I , XK , XL AM , f< 2 , RS$L 

2 2 2 4 « 



C 0 f T M 0 iM / i i J i* T / i . j T 1 ,£ N T 2 , i N l 3 , ? N T 4 , X H IJ , X N U 1 1 Y K 1 , Y K 2 , Y K 3 , Y S S ( b ) 

2 2 2 5 a 



EXTERNAL V E L 3 Q 1 » V E L 3 U 2 

2 2262 

(; 



2 2 2 7 k) 



X L A M = A L A B X 

2 2 7! 6 k) 



( y A G L G G b ( G | v'j f 2 f 0 ft ^ # V E t, 3 1; i # if ?-j 1 1 ) 

2 22 9 W 



C ALL u G e ( *5 , 0 , 2 , e # K 0 , V E L 3 C 2 1 2 1 2 ) 

2 2. 6 0 2 



FO 1 3Ll'i = YoS( 2 ) / U E S ~ Y X 1 - 2 N T 2 / 2 N ! 1 

2 2.512 



Kb i UK N 

2 2 6 2 2 



F. N D 

2 2 6 6 0 

C 



2 2 6 4 2 

r* 

^ i 

:**««« 


2 2 6 9 0 

c 



2 2 6 6 0 



FUNCTION FCT3MUIXMX) 

22670 

c 

THIS 

FUNCTION, SET UP IN THE FORM PUT (X) =0,0 , IS CALLED BY 

2 26 80 

c 

S U OHOlJT l N E -PUE-Ww j o ITERATIVE I- Y F I N U . THE V A L UK_P F M U._. „ 

2 2 6 9 0 

c 

IN the- i href -dimensional, case, 

2 2 4 0 a 

c 



2241k) 



C 0 M MON/ IDE NT /I DEAD, I M F , JET , JTERM , l AYER i M J X t M J B U Y , H 1 1 N T , M 2 1 N T 

2 2 4 2 0 


1 

ltXiT» IPITOT, IRATIO, ISTAT i ITOTAL# INFHAT, IPTRA fi JRETRN 

2 2 4 3 0 



CUT’ MON/ AERO/ A ( 10 , 7 ) i CD , CO\C ( 10 ) , CP ( 10 ) r C T , EmACH ( 10 ) » 

2 2 4 4 0 


1 

EN 1 HAL (12,7), GAMMA U.0 ) , P ( 10 , 7 ) , Q (10 ) , 

22 4 90 


2 

Rhd(U‘, / ) , 7) , V(l.O) » W0CT( 10,7 ) , WMQLUW) 

2 24 6 W 



COMHOn/HOOT/nSSWCH , CAPPA > KHOES , UES , X P A R 1 , XK , XL AM , R 0 , RSSL 

2 2 4 /0 



C U M m Q i\ / / / 1 N T / Z h T 3 , , £ NT 2 ,2N13 , j?N \ ‘\ , XmU , XNU1 * YK1 , YK2 t YK3 » YSS(5) 

2 2 4 8 0 



EXTERNAL E..T30 

22490 

c 



2 2200 



XHU-XMX 

22210 



CALL «G« ( 0 , 0 , 2 , 0»R0 , ENT 3D , 2NT J ) 

2 2 9 2 0 



f U 1 3MU«YSS( 3)«YK2*(1 , 0 * E N T H A L I IDF.AD, INF ))-2NT3/2NTJl 

2298 0 



RETURN 

22940 



(CNU 

2 2 9 90 

c 



2 2 9 60 

c , 


_ 

229/0 

c 



2 2980 



FUNGI ion FCT3NU( XNUX) 

229 9 0 

c 

THIS 

FUNCTION, SET UP ] N THE FORM FGT(X)=0,0, IS CALLED BY 

2 2 6 0 0 

c 

SUBROUTINE - P G E »*- «• TO IT 1 1 < A 1 1 V E l, Y FIND THE VALUE OF NU 

226.10 

n 

V 

IN THE i H R E t - 0 1 H E H S I 0 N A L CASE, 

2 2 6 2 f5 

c 



2 2 6 3 0 



COMMON/ I OEi.iT/I DEAD, I h'f , JE 1 , JTtKM , LAYER , M \ X , MJBOY, Mil N I , M2 I N T 

2 2 6 4 0 


1 

I EX 1 T , I P X ( 0 T , IKATIO, 1ST AT * I T 0 1 A L » IMFRAl, I P T R A T , JRETRN 

2 2 6 90 



COMMON/ AERO/ A (10,7), Cl), COr:C { ) , CP ( 1.7 ) * C T , E M A C H ( 17 ) , 

2 2 66 2 


1 

EN I HAL ( 13,7) , GAMMA ( 10 J , P ( 1 0 , 7 ) , Q ( 10 ) , 

2 2 6 7 2 


2 

RHO ( 10 , 7 ) , T ( 10 , 7 ) , V ( 10 ) , WOO T ( 10 ,7) , riMQL ( 10 ) 

2 2 6 o i) 



C U f ) >'• 0 N / ROOT/MSSWCH, CAPPA, KHOES, UES, XfiAR I ,XK, XL AM, R/J, RSSL 

2 2 6 9 2 



COHMOn/X/ IHT//i'.Tl, £NT 2 , 2NT3 , 2N ] 4 , XmU, XNU1 , YiU , YK2 i YX3 i YSS ( 9 ) 

2 2 / 2 0 



EXTERNAL CON 3D 

2 2 7 1 2 

c 



2 2/2 0 



X N Hi "X N U X 

2 2 7 3 0 



CALL uGjj(0,0,2,0#R0,COn ! 3D*HnT'U 

"it £ i 4 i;} 



PUT 3 i i u = Y S S ( 4 )-YK3*C0NC ( IOt.AU ) - 2N T 4 / 2 M J 1 

2 2 7 9 0 



f< E 1 U R N 

<r, 2 ! 6 It 



EMU 

2 2/70 

G 


, 

2 2 7 8 0 

G 

» 9 * a t 

? §s f'?9S8geBfj*9S5SiS»fSA¥?f?9?t?S??Sfie s «5*l^»**«Bt*»ep*89F e *e 

2 2 / V 0 

c 



2 2 H 9 . 



F Uf-C T ION RH0 31MZ ) 


A-44 



2 2 u i u 
2 2 w 2 a 

2 28 37 
2 2 8 4 0 
2 2 b t> y 
2 2 B 6 0 
2 2 0 7 0 

22 8 a w 

2 2 o V W 

2 2 v '{> y 

2 2 91 U 
.. 229 27 

22930 
22940 

- 2 2 y b y 

22967 
2 2 9/ It) 

- ' 22987 

2 2 9 9 7 
2 3 0 7 a 
2 3 010 
23020 
2 3 7 3 0 
2 3 0 4 0 
2 3057 
2 3 0 6 7 

- 2 3 0 7 0 
2 3 0 8 0 
2 3 0 9 7 
2 310 0 
2 8 1 1 7 
23120 
2 3 1 3 0 
2 3 1 4 0 
2 3 3. 5 V: 
2 316 0 
2 3 1 7 0 
2 318 0 

. 2 3 1 9 0 

2 3 2 0 0 
23210 
2 8 2 2 0 
2 3 2 3 0 
2 3 2 4 0 
2 3257 
2 3260 
2 32 7 U 
232 87 
2 8 2 9 0 
'2 33 0 0 
2 3 3 ;1. 7 
2 3 3 2 0 
2 3 3 3 7 
2 3 3 4 0 
2 3 3 5 0 
2 3 3 6 0 
2 3 3 7 0 
2 3 3 3 0 


C CALCULMfS I lit. ThREE-Ol^t'-'S lUNAL DENSITY PROF’lLE, 

C ' . 

C U M 1 1 0 ,v / 1 o L • r / l V E A U , ! N F , J t ! , J T L R M , U A Y H R • M I X , H J B 0 Y , M 1 1 N 1 , M 2 I ,N I , 

1 1 tX 1 T , IP i 1 ;.'T , I h.A r I 0# I 3 TAT , 1 TO i Al., I F« F R A T , I PTRAT > JRE TRN 

COKPiCH/AtKC/Atli', t) »CO,G'"'C(i;i) , CPCl'3) »CT *EmACH<1«> , 

1 t'-N 1 ■ i A l. ( i: , 7 ) , G A ‘ ' ; A ( 10 ) , P ( 13 , / ) , a ( 10 ) , 

2 RHO ( J >•',/), 1 ( L 0 , 7 ) » V C IK ) , J 0 T W M Q !, (10) 

v 0 ‘ i M Oft /it DOT/ S S '■ C H , C A P p A , K H 0 E S , U E S , X B A R 1 i X K > X 1. A M , R 0 , R b S L 
C 

Ut.r0-Vti.2ni, ( /-Ho ) 

F*R“E> 1 2 o ( 7-4/ ) / UtR 
CU.MRsgo.N'd'J . ) /UtR 
0 ' 
ub3«suF.R»:jr:s#v ( i y ) 

H 3 r H = ■■ j W « F. , : T M A l, ( I 0 K j 1 ) - 2 , 5 0 * -J o 3 R»ySSR 

CPRscyWh »CP ( JF. I ) + (1 , 0 "CO *-i H ) * C P (INF ) 

fcHR = l , <)/ ( GO R/.<v,Ot ( JET) + ( 1 ,li-CONR ) /UmOL ( INF ) ) 

1 RMS I ii/CPW 

R r I Q R s u A b R HO ( P ( I 0 1 A (j , l 3 TAT) , W H R , T R ) 

R M 0 3 0 - i. K M ; ) E 3 tt H H 0 ( 1 v F , I 5 T A T ) / R H 0 R 

nr. run in 
rjvu 
c 

L f i - m I » » f ' » » M i i ' * ' i i i i * 1 1 * 1 1 * ' I ’ ' ' t 1 I * i I i ' » i r r e i ! i i ‘ r ' M 1 * i ' f ' * * 1 1 1 1 

r; 

F 0 *■« C T | 0 w F CT R'b 8 ( h b b X ) 

C THIS fUNUTIUN, SET UP IN THE' FORM F'OT ( X ) =0 , P » IS CALLED BY 
C SUBROUTINE "POLL- TO ITERATIVELY fno the value' OF the SEPARATION 
C 3 I R f; A M L i N E i f- THE T h R L E ; 0 1 H E H S I 0 0 A L CASE, 

C 

CUMHO.V I DLL F / Mil AU , I f.'F , JET , JTERM , LA YE Hr M I X , MJBUY # Ml I NT , M2 I >\ f * 

% 1 1 . x IT, IP I ro r , MAT ID, 1ST AT . IT Q (AL, IX FRA I , IP TRA T # JRtTRN 

c U p H o N / A E ,R 0 / A ( 12 , / ) , C U , C Q 0 C ( 1 0. ) , C P ( 1 ? ) » C T » E M A C H ( 1 0 ) # 

1 F. !• ! HAL US' , / > , CASt A( IK) ,P ( 1.1, / j ( i)( UD , 

'2 R r i 0 ( 1 L » / ) , T ( 1 7 , 7 ) » V ( 1 M ) » ''' D 0 T ( 1 W » 7 ? , W M 0 L ( 1 0 ) 

c U H H 6 i>. / it 0 0 T / v 5 S c H , C A p P A , i< i i 0 L S , U E S , X B A R I , X K , X L A M , R k5 , R S S U 
CUHiiPR / 1 i l T / i T 1 , i T 2 ,7 Ml 3 , ?’ h T 4 , X mu , XNU 1 » Y K l r Y k 2 , Y K3 » Y SS ( 5 ) 

E X V E R N A L. V L L. 3 1) 1 
C 

Rbbt = r<SbX 

C M L tj G H ( M , , R S 5 1. * V L L 3 [) 1 , 7 M I 2 ) 

F G ] H S S 3 w D 0 T ( JRETKN, l )/YS5( l) -30T2/XMT1 

f< t 1 Li ft N 
tiii'j 

r; 

(J * i , t i I , , i • t , I I i i l I i I i i r i » I i * • * * » i i | » * , i m i * * i r i ' ' ' ' I ' ' i i i 1 * I ' I 1 ' ' f * * ’ 

c: 

SOHROJT 1 RE PER I V ( N l / ■ 0, H , Y, 7 ) 

c CAUCUUA It’S 1 HE l) i.. R I V a T I V L OF A '/ECt JR Y ADO STORES If M ANOTHER 
C V E C I 0 R A . ( b A b E U O’- IP 14 b U 1 L w T I F IC b : J BROUT I -UE T3- ) , 

C 

D >. HD b 1 OF Y (230. 5 , 2 ( 200 ) 

C 

H-i-y.bO/H 

7 ( i ) =HH^( ™3 ( C « Y ( HI ) +4 Y < NI + 1J-Y ( N I + 2) ) 
l s 3 M 1 + 1 
0Jb=UO“l 

O') 10H I s !•; I S , NOS 

loo 0 ( I ) =hIi» (Y(IU)-Y(l-l)) 

l t MO ) 0: t 0i ( v ( 00-2 ) -4 , 0»Y ( : n ~ 1 ) *3 . 0 * Y ( ■' 0 ) ) 

A-45 . ... . . • 



RET URN 
ENO 


2 6 4 1 8 
c U "I '2, () 
2040 a 
2 0 4 4 8 

2 3 4 b y 
2 3 4 6 0 
2. 3 4 7 0 
2 3 4 a 0 
2 6 4 9 $ 
2 4 S 0 0 
2 3 9 X w 

<e 3 1? ^ u 

2 4 9 4 D 
y 3 4 u 
2 0t>DU 
23U§^ 
Z 4b 7 a 
2 .5 u ?j a 
23U9U 
2 6 6 a 0 

2 3610 
2 0 6 2 V) 
2 4 6 3 k) 
2 36 4 0 
2 3 0 1> » 
2 3 6 6 0 
2 3 o / 0 

2 6 6 8 i-3 

2 3 6 9 0 
2 3/a a 
2 3 / X 0 
2 4 7?J‘) 
2 67 6 0 
2 3/40 
2 3 7 ‘j 0 
2 3 7 6 0 

2 6 / / ft) 
2 6 7 8 0 
2 6/9 0: 
2 3 6 0 0 

2 0 U 1 vi 
23820 
2 6 U 6 2 

2 3 b 4 u 
23»yo 
2 6 b 6 
2 3 8 7 2 
2 6 b <3 2 
2 0 8 9 2 
2 0 9 0 0 
2 0 9 X l: 
209 2 f 
2 0 9 0 0' 
2 0 •' 4 v ■ 
2 3 9 3 1 

2 0 9 o l' 1 
2 0 9 / V i 
2 6 9 8 , ■ 
2 6 9 9 1- ■ 
2 4 0 ;■! 1 ; 




9 * f * 8 0 


»8*f»»?8999fJ98f 


SUBROUTINE Slf.PS(NI ,R0 ,u,y,YJ ,Y0t)n - 
t; C A L C U [, A l t b T HE INTEGRAL OF A VECTOR Y 0Vt« THU INTERVAL NJ TO NO 
■rj ( WH l CR MUST HE EVE!/) AND KE TURNS T-H L FINAL VALUE ONLY , 

C (BASED ON IBM SCIENTIFIC SUUU OU 1 I NE “ *-QSF 2 - ). 

C 

01 MENS JON Y (20k ) 

C 

|-,H" H/3,8 
Y CJ 0 T = Y J 
h U S s n y r, 2 

DO I/a i = N I 1 1: 0 S > 2 

108 Y fj U T ~ Y 0 U T + H H » ( Y ( I )+4,0«Y( I+D+Y( 1*213 - . 

RETURN " — 

END 


**?*?*»? 




« « I t I » » f • « f » M * ’ « ► ® t | f 8 f I * » » I * » » * 


c 
c 
a 

SUBROUT I HE R y N G K <FCT,H, XI » YI » K,N, XOUT , YOU T ) 
a A FOURTH ORDER RUMGE-KU f T A I ,\; T E 0 R A T i 0 N SUBROUTINE, I T USES A 
C FUNCTION FCMX, Y> WHERE F C T s D Y / U X = F ( X » Y ) , 

C (BASED ON Thfl IBM SCIENTIFIC SUBROUTINE -RK3,- >, 

Q 

C0NM0N/FCTA1/PHI,XX,YY 
0 l MENS I ON XOUT ( N ) » YOUT ( N ) 

C 

H 2 = 1(72,0 

Y “ Y I 
X - X I 

DU 20 m»N 

DU 10 J=1,K 
T I=H«FCT ( X, Y) 

T 2 = H « F CT ( X + H2 , Y+ T 1/2 , 8 ) 

T 3 = , U’v K C T ( X + H2 * Y + T'2/2 , 0) 

T4 = ,-(« FC I ( X + H > Y * T 0 ) 

Y = Y + ( T 1 * 2 , 0 « 1 2 * 2 . 8 » T 0 + T 4 ) / 6 , 0 
ll X=X+H 

YOU] ( 1 ) s Y 
20 XOUT(U=X 
R i; UJRn 

!. 3 0 

C 

•«,****, itiii 

c 

S on R OUT I iv E FCTSS(SST/.R,YSSTAR, DENY, I ERROR) 

c nqs sow rout ine is called by subroutine -hpcc-. the first time 
C IT IS called, IT CALCULATES THE Ini i ial values, thereafter 
0 IT SKIPS to and CALCULATES THE RICH I HAND SIDE OF THE DIFFERENTIAL 
C EQUATIOiMS, 

c 

r u MM ON/C 0 U S TS/P1 » R u \ ! V 

CU'UiOtt/ I DEi- T/ I PE AO , JUf , uF I , UTLRM, LAYER iM I X , MJWPY , HUNT , U21 ,n T 
1 I EX n , 1 L I rC'T , I RAT 10, IS] AT , n 0 I AL, INFO AT, JR I RAT , JRETRN ' 

C 3 ! : f-i 0 i'i / J D E T / J U A S E , JOE a I H , J E X I T , .JFaCE , JSPHER , JS TAR , 

X J l r. R S H , M A X , M E R C E , M 0 Ij , N D , h R I , U S 

C U U ; \ 0 .v / A t T< D/A ( 1 0,7) > C U , C f ' , C ( 1 E ) , C F ( T. ( ' ) » C T , t U A C U ( ,1, K ) , 

A- 46. 



2 4 0 3, 0 
2 4 D 2 U 
2 4 w 3 o 
2 4 W 4 15 
2 4 0 3 (j 
2 4 y 6 w 
2 4 o / y 
2 4 o a w 
2 4 o 9 w 
24100 

2 4 U o 
24120 
2 4130 
2 4' i a w 
2 4 1 3 0 
2 4160 
2 41/0 
2 4 ISO 
2 4190 
2 4 2 0 0 
24210 
2 4 2 20 
2 4 2 3 0 
2424 0. 
2 4 2 5 & 
2 4 2 6 0 
24270 
2 4 2 B 0 
2 4 2 9 0 
2 4 3 0 M 
24310 
24320 
2 4 3 3 0 
2 4 3 4 0 
2 4 3 5 0 
2 4 3 6 73 
2 4 3 7 0 
2 4 3 0 0 
2 4 390 
2 4 4 0 Vj 
2 4 410 

2 4 4 2 0 
2 4 4 3 0 
2 4 4 4 0 
2 4 4 5 0 
2 4 4 6 i:< 
2 4 4 / y 
2 4 4 0 0 
2 4 4 9 3 
2 4 5 0 0 
2 4 5 1 0 
2 4 5 2 0 
2 4 5 3 3 
2 4 5 4 0 
2 4 5 5 0, 
2 4 5 6 3 
2 4 5 7 0 
2 4 5 0 0 

2 4 ' j> 9 3 


1 £H i HAL (10 . 7 ) , G A Pi M A ( 10 ) , 7’ (10 , / ) , Q< 10 ) , 

2 RrK) ( 1 0 » 7 ) , T ( 1 0 , 7 ) > V ( 10 ) , 090 f (10,7) ,-W-MOU ( 10 ) 

COMMON/ GE On/ ALPHA , A R ( 1 4 , 1 4 ) , R ( 1 4 , 1 4 ) , 

.1 T n R T A ( 1 4 ) » X ( , ). 4 , 1 4 ) , Y ( 1 4 , 1 4 ) , X R U ( 1 4 ) 

C u ;• 1 0 n ; J / R u 0 T / • $ S W C H , c A P P A , H H 0 E S , U E S , X 8 A « T , X K , X L A P, , Y 0 , y S S E 
0 I M E \ 3 I 0 N Y 5 S T A R ( 5 ) , p E R Y ( 3 ) 

C 

c won; Thai the first time -fctss- is called, Nsswcnn , therafteh 

C W S S W C H = 2 if ThL T IS LESS I H A N THETA(NS), AMD fs* S S W C H = 0 IF 

c l h i ; t is greater than theta ( ss > , ' 

c 


C SSTARsXtiAH-xRANI, X B A .R I - l '• I T I A L VALUE OF XBA«» CORRESPONDING 
C TO THETa (MERGE) , 

X I-' A R = S S 1 AH + XiiARI 
I M X13AK , G T , THETA (NS ) ) GO 10 60 

y thet is less than theta(.\s> , 

.T HE r ■- xbar 

R S T A f? s S 1 !\i ( T MET) 

GO TO 70 

C f H E T I 3 GREATER f H A N OR E 0 U A E TO THE T A ( NS ) , 

60 THE T a I RETAINS ! + A T A ■'* ( X H A R - T DETAINS) ) 

R 3 T A R = S I N ( T Hr T ) / COS ( T HE T - ( HE T A ( NS ) ) 
y THE flag mvSSWIJH INSURES THAT THE INITIAL CONDITIONS ARE 
C CAECU'LA !Lp ORLY ONCE, IF ! HE T A ( URGE ) IS GREATER T MAN THETA ( NS } , 

y parameters are calculated at tmeta(ns) and used' to calculate 
G I HE I M I ■ ! I A'L CO EDIT TONS, 

73 I f ( NSSDCH >EQ , 3) GO TO 160 

c 

110 IMTHEI.GT, P 1/2,0) GO TO 130 
120 Pt=PF I T ( T MET , P ( I NK , I PTRAT ) ) 

PIS-PIINF* IP J TOT) /PE 
F i'i E P M A 0 H ( G A n M A ( I N f ) , P J S ) 

Qu" TO 140 

130 X ■ U 1 = X N u ( N P I) + T H E T - P I / 2 , 0 

EML=XNMAGH(GAHKA ( Inf ), XNU1 ,] ERROR) 

IF ( I E R R 0 K > E 0 i 1) GO TO 300 
p T S = R R A 1 I 0 ( GA.MHA ( 1 NF ) , EME ) 
p E " H ( INF, IPITOD/PTS 

14 3 R H CEE" R h 0 ( I NF , 1 KAl I Q)*p ( I NF , I P I TOT ) /P ( I NF , I TOTAL ) 

1 / ( P T < 1 . t / Q A M P A ( I NF ) ) ) 

U E S s E M E / K M A C H < I HP ) 0 S G R T I T ( I K F » {RAT 10) ) 

1 /(PfS*«( ( GAMMA ( Ii-F )-!,£)/( 2 ,^»GAMHa( INF) ) ) ) 

Jr- ( NS Si V; OH , GT , 1 ) GO TO 15 0 
G CALCULATION OF The INITIAL VALUES, 

YSS f A H ( 1 ) - 2 « iSOWDD I (JET, j. )/WPO •' < INF',1) 

YSS FAR ( 2 ) =UES*WOC f ( Ml IDT, JET ) / 2 , p + y ( M I X ) / ( 2 , 0 » V ( INF) ) 

YSS TAR ( 3 ) -..DOT ( Ml i N T , J E f ) * ( 1 • n-ELTHAE < 10EA0, JNf ) )/2,3 
1 + ( E in T h A L ( JE T , I i'F ) + EVTHAL ( i DEAD , 1 NF ) ) /2 » d 

Y S S T A R ( 4 ) = ( 1, , E + C 0 N 0 ( 1 DE AO ) « ( 1 0-wOO T (Ml I NT, JET) ) )/2,0 

Y 3 S 1 A h ( 5 ) •" 7 , f* 

C 

c EVALUATE THE PSEUDO-CONS T ALTS , 

137 D“UES«SlRT {RHO tS*KHO< lOEAU, INF RAT) )/2,0 
C= 1 . + R H 0 ( I DEAD , I NF RA T ) /RHOES" 

16/ A A = RHOtS« ( YSSTAR ( 2 ) -UES/2 , 0) 


C A L 


U L A I 10 \i OF THE RIGHT HAND SIDE OF THE DIFFERENTIAE 
Do. R Y ( 1 ) =0 , 20«RSTAK« ( A A a C + 2 , 0«U ) 

D I- R r ( 2 ) s ( 0 , 2 0 # R S 1 A R •» U E. S » ( A A H ) - Y S S T A R ( 2 ? 0 r 3 T ( 1 1 


EQUAT I 0 N S 
) / Y G S T A K 





2 4 61 Vj 
Z 4 6 2 5} 
2 4 6 3 53 
2 4 0 4 is 
2 4 6 5 0 
2 4 6 6 0 
2 4 6 / 0 
2 4 6 B 0 


DtKY ( 3 ) = { 2, 20»RS I AK» (AA«(1, 0+ (C-l , 0 ) «E\THAL < 1 DEAD . I N F ) ) 

. 1 +a*(i,e + EM‘HAL( IDEaD, INF ) ) > -YSST AH < 3‘) «DEHY < 1) ) / YSS TAR ( 1 ) 

OERY ( 4 ) '• ( 0 , 20*HS I AH»CONC ( I DEAD ) # ( B + AA* < C-i , 0 ) > 

1 -rSSTAW(4)#DERY(3.) )/YSSTAR(l> 

DtRY(5)-U,20«ESTAR« (3 + AAMC-l .0) ) 

3 00 return 

E N 0 


% 


2 -1 ft 9 W 
24/00 

2 4 / i '/ 
2 4/20 
2 4 / *5 0 
2 4/40 
24/50 
2 4/60 


SUB ROUT I :.‘E 0 U T P ( S S T A R » Y S $ I A R , U £ K Y , I H L F , fJ() I M , PRH T , J ERROR ) 

c this subroutine is requikho by i he integration subroutine -hpcg~ , 

C If the uLiJNTIlvG SPHERE U I AKETER ‘ I S- LESS THAU THE BASE DIAMETER, 

C n-S ONLY ACTION IS TC PRESERVE The CURRENT VALUE OF SSTAK,"AS 
C A CHECK Oiv (H f LOR AT ION F A 1 EURE , 

C 


24/7 W 
24/80 
2 4 / 9 U 
2 4 800 
2 4 [1 1 0 
2 4 020 

24030 
2 4 y 4 u 
2 4 y 5 u 
2 4 8 6 U 

2 4 B y 0 

2 4 B y 0 
2 4 « 9 U 

24900 
2 4 91 0 
2 4 9 2 V5 
2 49 60 
2 4 9 4 0 

2 4 950 
2 4 9 6 0 
2 4 9 7 0 

2 4 930 


C IF THE BLURTING SPHERE DIAMETER IS GREATER THAR 1-WE -BASE DIAMETER, 

C AND TME I IS GREATER THAN THETA (NS) , ( I ,E, THE INTEGRATION HAS REACHED 
C the conical PORTION), II CALCULATES ' LAMOA » KAPPA AND THE 
c physical lengths, both from geometric considerations and a 

C HASS BALANCE, AND TERMINATES INTEGRATION WHEN THE LATTER 
C EXCEEDS THE FORMER, 

C 

C 1 J M IT 0 N / C 0 N STS/PI, RUN IV 

C o H M 0 !N / I 0 1. Iv T / I D E A 0 , 1 N F , J F I , J T L R M , L A Y E R , M I X , M J H U Y , M U N I , M 2 I .%■ T , 

1 I LX I T » | P I TOT, IRAT10, 1ST AT, IlOIAL, I i\i FRA I, 1 P T RAT , JRETRN~ 

C 0 M H 0 N / ,J [) L R T / J B A S E , J C E ’ j Tf? , J E X I T , J F A C C , J S P H E R , j S T A R , 

X J i l R S H , M A X , M F R G E , M Q D , N p , W P \ , US 

COMMON/ A£R 0/ A (!<£,/), CO, CO.\-C { 10 ) , CP ( 10 ) , C T , EmACH (10 > , 

1 ENT HALUF, 7 ) , GAMMA ( 10) , P ( 10 , 7 > , Q < 10 > , 

2 RHO ( 10 , 7 ) , T ( 10 , 7 ) , V ( 10 ) , WOO I (10,7), WOOL ( 10 ? 

CUMMON/GEOH/ALPHA , A R ( 1 4 , 1 4 ) , n (14 ,14) , 

1 THETA (14) , X(14,14) ,Y(i4,14) , XWU( 14 ) 

CUMHON/ROOT/nSSWCH, CAPPA, RHUFS, UES, /BARI , XK , XL AK , R 0 , R S S L 
C ‘ J i L S 1 0 N / / Z IHT/2NT1. iliT'Z, £'\ T3, 2NT4 , XHU, XNyl, Y K 1 # Y K 2 , Y K 3 » Y S'S ( G ) 
DIMENSION P R M T ( 6 ) , YSSTAR(B) » 0 F R Y ( 5 ) 

EX I'FRUAL F c T 6 L rl , F C T 6 M J , F C I 3NU» FCTR3S, RH030 


2 4 y 9 0 


2 2 8 

FORMA I ( ' 

/convergence failure , 

LAM 0 A = ’ , 1PF.12 , 4 , ' FC T3LNs ' , 

29000 


1 

E 1 2 , 4 , ' 

IERs',14,/) 


29 0 10 


2 4 8 

FORMA 1 ( ' 

"CONVERGENCE F A I LURE , 

M U ~ 1 , 1 P E 1 2 , 4 , ’ FCT3HU=’ , 

2 9 0 2 0 


. 1 

£12 , 4 , * 

I E R » ' , I 4 , / ) 


2 9 VI 3 O 


2 6 8 

FORMAT < ' 

•J C 0 1' V E R G E N C E F A I L U R E , 

NUa ’ , 1 F 1 E 1 2 , 4 , * FCT3NUs ' > 

2 5 v’ 4 0 


.1 

£12,4, * 

J E R = ' . I 4 , / ) 


2 9 0 5 0 


3 0 8 

FORMA ! ( ’ 

.4 CON VERGE NOE F A I LURE , 

R S S L 3 ' , 1 P E 1 2 , 4 , ' FCTRSS= » , 

2 9 0 6 0 


1 

E L 2 , 4 » ' 

I E R a ' , I 4 , ( ) 


2 9 a / 0 

c 





2 5 C y 0 



I 0 U T = 8 



2 5 0 9 » 



F R M T ( o ) “• 

SSTAR 


2 5 l 0 0 



I r ( T H E T A ( N S ) , l T , p 1 / 2 , 0 ) GO TO 

960 

2 511 2 

c 





2 9 1. 2 >J 

C 

UELSSr is THE 

NOiVO I MENS I DUAL OlbTA'vC 

E FROM THE SPHERE -CONE 

2 9 \ 3 U 

c 

I N 1 E R 

SERMON point, along the cone, 


2 5 1 4 0 



0 L L S S I 3 b 

S T AR- ( THE 1 A ( NS ) - X n A R I ) 


2 9 l b 2 

L > ^ "| ^ J/ 



|M OELSbr ,t,T , 0,0) GO TO 96 O 


V v > 1 / 

I -J 


1 1 ( NSw C m 

, E Q , 1) GO TO 400 


2 9 1 o 0 



ygeoh= < 1 

, 0-D£LSST« I AH ( ALPHA ) )«R( JSPHER » 1 ) «COS ( ALPHA ) 

2 5 j. 9 0 



l)tLL = UEL 

SS T^T AN ( ALPHA) 




252 ;U? 



QU 2m 1=1, NO I H 


2 5220 


q 

YSS ( I ) - Y S S T A - ( I 5 


2 5 2 3 M 

Q 




0 •> 2 Vi 

G 

f i 4 ) 

LAHUA b y an iterative: procedure, 


2 5250 



CALL PUL 2 C XL AM , VAL * E CT3LM , Z ,56,1,2,1. 0E~6, 1 D 2 

, 1 1 R ) 

2 5 2 fa 3 



UUER.fcQ, 2) GO TO 230 


2 5 2/ /■ 



aHI IE (I OUT, 226 > X[, AM , VAR » I ER 


2 5 2 a » 



GO 10 900 


2 1> 2 y 0 

G 




2 b 3/ 2 

f; 

F I 2D 

,Y U G Y A N I TERATIVE P k 0 CEDUR E , 


2 5 o 1 0 


2 3 y 

CALL POLL ( Xl-b; , V AL , F G T 3 M U ,0,0,0,50,1, KE"6 1 100 , 

I ER ) 

2 5 ,'5 2 0 



IM lLRiE-O, C) GO IQ 250 


2 5 3 3 8 



RbilE ( 1 Q U T , 2 4 b ) fi U , V A L » I L R 


2 5 3 A 0 



GO ro 900 


2 5 5 5 0 

c 




2 5,36-3 

C 

F [ vO 

N U BY AN ITERATIVE PROCEDURE, 


255/3 


2 5 0 

C A 1, L P G t K ( X N U 1 , V A L- , F C T 3 N U » 0 ,3,0,5 9 •> 1 , 0E~fc f 1.00 

j, 5 ER ) 

255faij 



' IE ( 1£R ,LQ, 0) GO T 0 2/0 

' - ' - ' ' 

2 5 6 9 0 



WRITE (1 OUT, 266) NO, VAL, I ER 


2 5 ' - 0 0 



GO TO 930 


25 413 

C 




2 5 4 2 59 


2 7(9 

c A | • 1 p a « 2 , 0 » P I * R H 0 E s # u t: 3 » 2 T 1 / ( Y S S T A R U, ) * A R ( 0 S P H E R , 1 ) ) 

2543k) 

c 




2 5 4 4 0 

0 

1 HE 

TOTAL ENTRAINED AND THE RECIRCULATED MASS FLOW 

IS NOW MADE 

25 4 50 

c 

0 I MENS I ORAL OivCfc AGAIN, 


2 5 4 6 59 



YSS{1)=YSSU)«WDQT( INE,1) 


2 5 4 7 5) 



YSS(5)BYSy(5)#WD0f< INF.l) 


254 BO 

c 




2 5 4 9 Vi 

c 

C A L C U L A f L the: MASS RETURNED TO n<E DEAD AIR REGION , 1 


2 5 5 0 itf 



ft-uOl { jRL T Hr 1 ,%)- W D 0 I ( MJUDY , 1 ) + ROOT ( M2 J i;T , i ) t-yS'S ( 5 ) 

2 5 5 1 0 

c 

FIND 

THE SEPARATION STREAMLINE bY AN ITERATIVE PROCEDURE, 

2 b 1? 20 



call PGEri ( RSSL , VAL , F C 1 RSS , 2 , 3 , 2 , 5 , 1 . 0E-6 , 100 , 

JER) 

2 5 5 3 a 



If ( 1 E R , E 0 , 0) GO 10 313 


25 5 4 0 



K K I TE. I 1 OUT , 306 ) KSSL, » VAL » t ER 


2 55 5 0 



GO TO 900 


25560 

G 




2 55/U 


01,2 

CALL QG6 (0,0, RSSL > HH05D , ZM5 ) 


2 5 5 3 0 

c 




25590 



Y >1 ASS = SQR r ( 2 , 0 « zf N T 5 / C A P P A ) 


2 b 6 0 y 

G 




2 b 6 1 0 



[ILL ENG? ( YGE0M-YMA3S )/ (2 ,0»R ( JSPHER , 1 ) *S I !K ALPHA ) 5 tOELSST 

2 b 62,: 



T f P E UiSSTAN , DELL , DEL ENG , CARP A , XL AM, YOLO!), YMASS 

2 b 6 3 0 


4,1 

Format i • s» , dels/l , nEm oel= * , bFia , 5 , 


2 b 6 4 !■; 


1 

/ ’ KAPPA , L AHD A , YG , YM« = 1 ,.U4E12,4) 


2 b 6 5 0 



CSWCHsl 


2 b 6 6 M 


4 a v: 

1 1 5 U e: C S b T.GT.DLL E N G ) M S W C H - 0 


2 b 6 7 y 



I f ( Y G t. 0 M , L T . 1 , 0b0*Y M ASS ) NSwCHs0 f 


2 b 6 K 7j 



iMYGEOl-i.GT.YiiASS) GO TO 960 


2 b 6 9 2 



GO TO 930 


2 b / 2 0 


V 02 

I c. R R 0 K = 1 


2 b / :J, !:' 


y 3 0 

PRUT ( 2 ) "1 1 D 


2 b / 2 S' 


V 0 y! 

R t T l_J R N 


2b/ /> y 



END 


2 b / 4 y 

c 




2b / bis 

G , 

6 * 9 s 9 


* * f -? f * 8 # " * ? P 5 

2 b / ( 1 6 

C 




2 b / '/ w 



S J U R 0 y 1 1 N E P G E W ( X , V A L , F C T , X G 1 , X G 2 , t P S , I E N U , I E 

R) 

2b / yy 

c 

I'-f IS 

SL‘.*R 0 UU-NE USES The TECWNIRUE of FALSE posit to 

N W I T H 

2 b / ' 7 v* 

G 

Up DA 

fro, A N CHUNS, I H E F 0 i’j C T I 0 N THAT IT C A L 1. S M LSI 13 

E IN THE 

2 b > ; ': . 1 

r; 

F 0 -x :-j 

r c 1 ( X ) SE , X IS THE VALUE. OF THE ROOT , VAL IS THE VALUE 



2 2 8 1 % 
2 b '62 7 
2 \> 8 >3 o 
2 2 iS 4 0 
2 :> b b .5 
2 2 is 6 <5 
2 2 8 / 7 

2 1> y B | 
2 s y y 0 
2 67 30 
2 t> v 1 K 1 
2 2\)2'0 
26 7 30 
2 s y 4 0 
2 2 y 5> 0 
2 2 7 6 (S 
2 s y 7 p 
22 2 H ’7 

2 2 v y 0 
2 6 » y 0 
2b'.’ i.v: 
2 6D2P 
2 6 0 3 2 
2 6 t-J 4 $ 
26030 

2 6 » 6 y 
26 0 7 0 
2 6 0 B 0 

2 h 0 y 0 
2 6 1 0 2 
2 611 2 
2 612 3 
2 6 1 3 B 
2 614 y 
261 b 0 
2 6 1 6 0 
2 6 1 7 0 
2 6 1 B K 

2 6 1 y 2 

2 6 2 k! 2 

2 6 2 1 w 
2 6 2 2 0 
2 6 2 3 0 
2 6 2 4 0 

2 6232 
2 6 2 6 1' 
2 62 7 2 

2 6 2 3 M 
2 6 2 V M 
2 6 3 0 0 
2 6 31 0 
2 632B 
2 ft 3 3 3 
2 6 3 4 i) 
2 o 3 b 2 
2 6 3 6 0 
2 ft 3 / 2 
2 ft 6 3 3 
2 ft 3 3 ft 
2 6 4 5 ! 


C OF FCT(X), XGl,XG2 ARE 1 HE INITIAL GUESSES CF X, EPS IS THE ERROR 
C dp UNO t JEwO IS T HE MAX NUMBER OF I f L H A T I 0 N S # ANO I EH IS AN 
G ERROR RETURN* 

C 

IER = 0 

X 1 - XG1 

Fii'rci (xi) 
v a L 3 F .1 
X 2 = X G 2 
C 

DU 100 I si, I EM) 
r 2 = F C I ( X2) 

V A L s F 2 
D 1 F F = F 2 - F 1 

JMAPS(UIFT) ,LT. 1.UE-3S) GO TO 200 
X “ X 2 - F 2 » ( X 2 " X 1 ) / 0 I F' F 
IF < A B ft ( X / X 2 - 1 , u ) , L T » E P S ) GO TO 300 
. F i : F 2 
XT-X2 
X 2 ~ X 

100 CONTINUE 
C 

C NO CONVERGENCE AFTER I EMU ITERATIONS, 

I E R ~ 1 
GO TO 300 
C 

C DENOMINATOR fS TOO SHALL, 

200 I L R = 2 

300 RETURN 
EnU 


SlJBKOU T I ME or, a ( XL , XU , F CT , Y ) 

C CALCULATES I he INTEGRAL OF ' The FUNGI ION F C T < X ) , BY SUMMING OVER X 
C F'ROfl XI TO XU, BY MEANS OF A FOURTH ORDER GAUSSIAN FORMULA, 

C (TAKEN DIRECTLY FROM THE IBM SCIENTIFIC SUBROUTINES, -0G8- ) , 

C 

c 

A ~ , 2 * ( X U + X L ) 
ii * XU” XL 

C s , 4 11 0 1 4 4 V •» B 

Y s , i 6 1 6 X 4 2 7 » ( F Cj T ( A + 1 ; ) + F C T ( A - C ) ) 

C=, 3763332*8 

' Y s Y + . 11 11 7 : ’ 2 » ( F ' C T ( A + 0 ) + F C T ( A - C ) ) 

C » , 2 6 2 7 6 ft 2 * B 

Y 4 Y + f 1 5 6 8 ;> 3 3 # < F C T ( A + C ) + F C T < A - C )) 

C * ,07171732*8 

YsB* ( Y+ ,1613 4 19* (FCT ( A + C ) +FCT ( A~U ) ) ) 

R F ]’ U R R 
F- X p 


C 


c 

c: 

c 

0 

n 

u 

c 




SUHROUTI N E H P C G ( P R M I , Y , 0 E R Y , N 0 I M , I H L F , F C T , Q U T P , A U X , 1 E R R U R ) 

solves a system of first order ordinary ge.'ERal' oifkerfmt ial 

L a l : A. T 1 0 - S MTh G I V t. N I !•> IT 1 A L V A t U E S , B Y U S 3 ft’ G A F 0 UR T h Q R U Z H 
HAUMIMG-S MODI FIFO PRED 1 CTOR-COHREC TOR METHOD, A FOURTH 
URDEH RONGE-KU I TA METHOD IS USED to ’generate THE necessary 
I u i T I AL ALDUS , 


A-50 



{?6 4 1 0 t; (taken directly and slightly modified phom 'the- jbm scipuific 

26120 G 6UBH0U T HtS, <*HPCG~ ) , 

2 6 A- 3 V) C 

2M4® PlhitNSIUS RiP', T ( 6 ) , Y(6) ,L>ERY(5) , AUXU6,5) 

2, b 4 5 » c 

2 6 'i 6 X N.s 1 

2 6 4 / » I K (. r f U 

2 6 4 8SS X = P H M r (1 ) 

26 4 90 HspKprU) 

2 6 6 12 0 PRHl (5)~G, 

2 6 6 1 0 DO 1 1=1, |l - '■■) I M 

26620 Ayxa6i ir-a 

26630 A U X ( i 2 c i 5 = LH- D Y ( | ) ' 

26640 1 AUXU > I ) = T < I) 

26660 }F(rV»-(P:-<i'lT (2)-X) )3,2,4 

26660 C 

268/0 C ERROR RETURNS - :. 1 . .... _ 

26280 ' 2 I H L " Jl S. 

26690 GO VC) 4 

2 6 600 3 I H L V r. 13 

26610 C 

26620 fj COMPUTATION OP DERY FOR STARTING VALUES 
2663U " 4 CALU FCT ( X, Y, DERYi IERROH) 

26642 \F { (ERROR, EO, ,U Go" TO 230 

2 6 6 6 D C 

26660 C RECORDING OK START JNG VALUES 

2667.0 CALL. OllfPCX* Y»OERY, I ht.F ,ND I N , PRMT , \ ERROR ) 

26 .6,80 If ( ILRROR. EQ , 1) GO TO 230 

26690 iF(PRMT(S> >fi»5,6 

26 /U0 !? IR i HUF > 7 r 7 # 6 

2671 W 6 RETURN 

26/20 7 DO « I s 1 , N 0 I M 

267 30 H AlJxUa I )=UERY( I > 

2 6/4 0 C ' 

2 6 7 5 U C C 0 M P U T A ! I 0 N ' 0 F A U X. ( 2 , 1 ) 

26/6U IS W 5 1 

26/70 GO TO 1W0 

2 6/8 0 G 

2 6/9 V) | XsX + H 

2 6 800 DO XU 1*1, MO I M 

2 6 61D 10 AijX (2, I j- Y ! I ) 

2 A 8 2 U G 

26630 C INCREMENT H JS TESTED f«Y mEAnS OF !U SECT I ON 
26U4U 11 l HLf ~ I HLF + 1 

2 6 6 5 pi ’ X is X - H 

2 6 66G 1J0 12 1=1,1'; 0 ! M 

268 /0 12 A iJX (';'?# I )=AUX(2, I ) 

2 6 6 8 0 H s , 2 » H 

26 890 N * 1 

2 6 9 U 0 I S W " 2 

2 6 V 1 G G Q T 0 1 d 0 

2 6 9 2# G 

26930 13 X*x + H 

86940 0 A L i ■ FCT <X, Y.OCRY , i ERROR) 

26980 J F ( U RKUK , EU , 1 ) Go' TO 230 

2 6 9 6 0 H s 2 

2 69/0 IT Q t,4 I s l f N !.) J M 

2 o y 3 ;■} A i; x V 2 ; I j ^ y ( I ) 

2 6 V 9 ,0 1 9 A IJ X ( V ,1): I j EKY ( J ) 

2/9,,., IS,— 3 


A-51 



2 7 H 1 0 



GO 10 100 

2 i 0 2 C 

C 



2 7 030 

c 

VO Ml 

PUTAIION OK TEST VALUE PF.LT 

H / $ 4 


15 

DEL l 5 0 t 

2 7050 



UO 16 I - 1 / a 1 0 I M 

2/06 li 


16 

OKU “OEllT + AUX (15» I )«ABS(Y< I >~AUX(4, I ) ) 

2 7 O 7 H 



U£U S , 06666667 »OEL,T 

2 7 080 



}F(ULuT-Pki:1 (4)519,19,17 

2 7 W 9 (5 


17 

I F ( I HLF-10) 11 ,18,18 

2/100 

c 



2/110 

c 

HQ 

SATISP ACTCHY ACCURACY AFTER 10 BISECTIONS. ERROR MESSAGE. 

2/120 


18 

IHU S U 

2/130 



X & X * H 

2/14 0 



GO 10 4 

2 /ISC 

c 



2/160 

c 

THERE: 18 SATISFACTORY ACCURACY after LESS THAW 11 bisections 

2 7 1 7 0 


19 

XsX + N- 

2/180 



CALL FCI (X, Y,OLRY, I ERROR) 

2/190 



IF () ERROR, EG, 1) GO TO 230 

2 7 200 



00 20 I = 1 1 N P j M 

2 7 210 



A U X ( 3 , I j - Y ( I ) . 

2 7 220 


20 

AIJXU0, I )'sDERY( J ) 

27230 



Ns 3 

2/240 



I S /, = 4 

2/250 



GO To 100 

2/260 

c 



2 7 2 7 0 


21 

Ns! 

2/280 



X 3 X + H 

2/290 



call fci ix, y,plry, i error) 

2/300 



im ERROR, EO, D GO TO 230 

2/310 



XspRMT ( 1 ) 

2/320 



Do 2 2 I ~ 1 , ,\'0 J M 

2/330 



AUXU1, i i=DERY( I ) 

2/340 


22 

Y ( J J=AUX(1, I ) + H ( , 3 7 5 » A U X ( 6 , D + . 7 9 16 66 7 # AyX ( 9 , \ ) 

27350 



1-, 2UB3333»AUX ( 10, I ) + ,U4166607*DtRY( J ) ) 

27360 


23 

X = x Th 

2/3/0 



N s u + i ' 

2/380 



CALL FCI (X, Y,OERYi I ERROR) 

2/39 0 



I F ( itRRUR.EQ, ;U GO TO 230 

2 / 4 0 0 



CAL 1- OUT P ( X , Y » 0 E K Y , I H L F , '1 0 I 4 , P R 14 T > l L R R 0 R ) 

2 / 4 1 0 



IF( i ERROR, EQ, 1) GO 10 230 

2/420 



I F ( PRi'!T ( 5 5 5 6,24,6 

2 7 4 3 0 


24 

I r < 9-4)29, 200,200 

2/44 0 


25 

DO 2 6 • I - 1 , ,2 D I M 

2/45 0 



auxin . ( > ~y ( i ) 

2 / 4 6 Zi 


26 

AUXI R *7 , 1 ) = Q E R Y ( J ) 

2/470 



IF ( i ! ” 3 5 2 7 , 2 9, 2 0 0 

2 7 4 B 0 

c 



2/49 0 


27 

DO 2« I«1»\DJM 

2 / 6 S? 0 



DLL I S AUX ! V, 1 5 + A U X ( 9 » 1 ) 

2/510 



DEL i *DELT + 0F.LT 

2/52 0 


2 8 

Y ( ] ) = AIM Cl, I )♦ ,3333333»H«(AUX(8, I ) + 0 E L T + A !J X { 1 0 , I ) ) 

2/93 Z 1 



GO ’0 28 

2/64 0 

c 



7 / 9 5 0 


2 9 

DO 8 0 1=1, U P J M 

2/960 



DLL 1 ~ AU X I V , I ) + A U X ( 1 D , I ) 

2 / 9 7 1 



DEL * s DEL T + PELT *DE|,t 

2 / 9 6 0 


33 

Y ( I ) “ AUX (!,!) + , 375»H<> ( MJX ( A » 1 ) * DE L T f A UX ( H i I ) 5 

2 / 9 9 0 



G 0 1023 

2 / 6 /< 

ij 


A-52 


A-52 



2 i b X 0 

2 1 6 2 y 
2/638 
2/64 Si 
2 / 6S 0 
2/66 O 
2 / 6 7 W 
2 / 6 8 0 
2/69 0 
2 / / 0 tii 

2 / / 1 , 0 
2 / / 2 » 
2 7/30 
2 / / 4 7 
2/ 7*30 
2 / 7 6 0 
2/770 
2 / 780 
2 / / 90 
2/0130 
2/610 
2/020 
2/03 0 
2 / o 4 0 
2 7 0 0 0 
2 7 0 6 0 
2 / 8 7 0 
2/000 
2 / 0 9 0 
2 7 9 0 0 
2/910 
2/920 
2/930 
2/94 « 
27900 
2 7 9 6 0 
2 / 9 7 0 
2/980 
2/990 
2 0 0 0 0 
2 8010 
2 8 020 
2 0 0 3 0 
2 8 0 4 0 
2 8 0 0 0 
2 0 0 6 W 
2 807 0 
2 8 0 8 0 
2 8 0 9 0 
2 8 1 0 0 
2 0 i 1 S3 
2 8 1 2 0 
2 8 1 3 V. 
2 8 1 4 0) 
2 8 1 o S3 
2 H 1 6 0 
2 IS 1 / ;■-) 
2 ti ,1 0 0 
2 8 1 9 W 
'2 is 7 0 i" 


C f HE FOLLOWING PART OF SUBROUTINE HPUG CONFUTES UY HEARS OF 
C R U N GE «• K U j T A METHOD STARTING VALUES TOR THE NOT SELF "ST ART l NG 
G HRFOicTUH-CDRRF.CTOR METHOD, 

3 00 UO 10.1 1=1, NO IF 
t = H* ALjx ( a!+ / , j ) 

AjX(S,l)»Z 

1 0 1 Y ( P “ A U X ( (s , 1 ) + , 4 » 7 

o z is an 'auxiliary storage location 

G 

Z=X + «4*H 

GALE F C 1 { Z > Y , [.'FRY, 1 ERROR ) 

]r ( T error, eq, i> go to 230 

UO 102 1 * 1 , MUM 
ZaH*UERYU> 
a'u x < f; > n “ z 

102 Y ( J 5 ~ A U X ( fv , I ) + , 2 9 6 9 / 7 6 # A U X < 8 , 1 ) + ,150/596*2 

C • ‘ ’ " .. . ' . 

Z = x + • 4-557372»H 

CALL FCT U, Y,DLRY, l ERROR) 

IF U ERROR, LQ, 1 > GQ 10 230 
DO 103 J=1,WQIM 
ZsH' j ULRY ( l 3 

a u x ( / , n = z 

103 Y ( I >=AUX(Ni I ) + ,218 i005#AUX(># I ) -3 • 0?D965»AUX ( 6 , 1 )+3, 832808«2 

G 

i s X + H 

CALL FC T C Z , Y , OERY , IERROR) 

IH1LKRuR,LQ, 1) GO '.to 230 
0-0 10 4 1 B 1 1 HU I H 

104 Y( J ) ~ A I.J X ( L , I ) + , 174/603»AUX(2, I ) - , 551 480 7 * A UX ( 6 , \ ) 

1 * 1 , 2 > ' 5 5 3 6 ■» A U X ( 7 » I > + >1711848* >4 # Q £ R Y ( 1 ) 

GQ i U( 9, 13, 15,21) , I Sp 
G ‘ 

C POSSIBLE BREAK-POINT FOR LINKAGE . 

C . 

C STARTING VALUES are computed, 

(J HOW START HAMMINGS MODIFIED PREDICTOR-CORRECTOR METHOD, 

200 I § T t P - 3 “ ' 

201 |F { iv- 6 5 204,202,204 
C 

C H = 8 CAUSES THE ROWS OF AUX TO CHANGE I RE JR STORAGE LOCATIONS 

202 no 203 H "2,7 

DO 2« 3 l 5 1, HD I M 
AUXIN-1, I )=AUX(N, I 5 

203 A !J X 1 N ► 6 , I )sAUX(N + 7» i > 

N s 7 ' 

C 

C u LESS ..I HAM 8 CAUSES N*1 TO GET N 

204 N * N + 1 
C 

n COMPUtA I IOM OF NEXT VECJOR Y 
U l] 2 5 1 = 1, U i j 1 .4 
A MX i N-.l , I ) ft Y ( I ) 

208 AljXt N+6 , I) sOLIsY ( I) 

X s X + H 

206 ISTU’ft I STEP+1 
(JO 20/ 1=1, NOTH 

DU. 1 = A U X ( IN - 4 , I ) +1 , 333333«H» I A1JX (H + 6 , I )+aUX(N + 6, 1 ) - A U X ( N f L , I ) 
], A [ i x U ; + 4 , I ) + A u X ! N + 4,1)) 

Y ( I > = D F I. ! - . 9 2 8 6 1 9.8 <+ A U X ( 16 , 1 ) 

A-53 



2 a 2 l 0 
2 8 2 2 0 
2 a 2 3 0 

2 82 4 r‘ 
2 B 2 0 to 
2 b 2 6 to 
2b 2/0 
2 a 2 8 to 
2 8 2 9 to 
2 53 »■'• to 
28 310 
2 8 3 2 0 
2 0 3 30 
2 » 3 <1 to 
2B3SP 
20360 

203 70 
20300 
2 03 9 to 
2 8 4 00 
2 0 4 1 0 

204 20 
20430 
2 8 4 4 0 
2 8 4 0 0 
2 8 4 6 0 
2 8 4 7 0 
28 4 8 0 
2 8 4 9 0 
2 8 0to to 
28010 
2 8 0 2 0 
2 8 0 3 0 
2 8 0 4 0 

2 8 o o 0 

2 0 0 6 to 
2 8 0 7 0 
2 8 0 8 to 
28 09 to 
28 6 0 0 
2 0 6 J, to 
2 B 6 2 to 
2 8 6 3 to 
2 8 6 4 to 
2 6 6 0 0 
2 8 6 6 to 
2 8 6 7 to 
2 0 6 8 to 
2 0 6 9 to 
20/toto 
28 7 1k? 
20/20 
2 8/3 w 
2 8/4 to 
2 8 / 0 to 
2 0 / 6 K 
2 0 / / to 
2 8 / 8 to 
•; h / 9 

2 0 1 ! (7 to 


207 AuXU.6, l) sDtUT 

fj PREDICTOR is K-ow GENERATED IN ROW 16 op a.UX, MODIFIED PREDICTOR 
C J $ GENERA I Fu I?- Y » Dt.LT PLANS AN AUXILIARY STORAGE., 

G 

gall pci ix,y,i)eky, ilkror). 

It (It. RF UR , LO , 1) GO TO 230 

t; DERIVATIVE UF HUDIPIEO PREDICTOR IS GENERATED in UF.RY 

c ' ' > " " 

DO 20 B I=l,itoQIM 

UPL I = . 120<K 9 , «aUX (N-l , I )-AUX(f.-3, I ) + 3 , #H# ( PER Y ( I )+AUX<N+6, l M 
1 A Ij X I N + 6 , 1 ) - A g X ( N + 5 » I ) ) ) 

A !,' X < 1 6 , 1 ) = A U X ( 1 6 , I I' 

203 Y ( I ) = p E! L T + > 0 7 4 3 0 to 1 / * A l,i X ( 1 6 » 1 ) 

0 

0 TEST WHETHER H MUST BE HALVED OR DOUBLED 
PEL' 'D* 

DO 209 I " 1 > N 0 J M 

209 DEL 1 =DELT + AUX ( 10, I ) ■» A B S ( A U X ( 1 6 , J ) ) 

I f ' ( D E L T ** P R H T ( 4 ) )2 10,222,222 

n 

v 

C H MUST WOT BE HALVED, THAT MEANS Y ( I ) ARE GOOD, 

210 call PC T ( X, Y,OERY, 1 ERROR) 

I E ( l ERROR, EQ, 1) GO TO 230 

CALL OU TP ( X , Y , PER Y , I HUE ? ND I M , PRHT , I ERROR ) 

JR TERROR, EO, 1) GO TO 230 
I F ( P R M T TO ) ) 212 ,211,212 

211 I F ( I H L F ~ 1 1 ) 2 1 3 , 2 i 2 , 2 1 2 

212 R E T U IT |\| 

213 IF <H»< X-PKHT (2) )) 214, 212, 212 

214 IF < AHS < X~PH!!T(25 ) - , 1* AB3 < H > 5 212 » 2lb , 215 
2.10 I F ( P E L T ~ [ 15 2 « P R M T ( 4 ) ) 2 1 6 , 2 1 6 , 2 D 1 

C 

c 

C H COULD HE DOUBLED IF ALL NECESSARY PROCEEDING VALUES ARE 
C AVAILABLE ~ 

216 J F ( i'H|,r ) 201 , 201 ,217 

217 iF(H“7)201, 216,218 

218 IF ( ! 5 T E P “ 4 ) 2 2 1 , 2 1 9 , 2 1 9 

219 I HOD" ISTEP/2 

IF ( 1 STEP-. I HOD- I HOD) 201, 220, 201 
2 2 to H s H + H 

I HIT -IHlP-1 
1 STEP=0 

DO 221. m,N0Ii4 
. A u X < H-l , I ) =AUX ( N n 2 , I ) 

AyXU'J-2, I ) =AUX ( N-4 , I ) 

A |JV I !'- - 3 * I ) ™ A tj x { rv - 6 , I ) 

A u X t N + 6 , I 5 = A 0 X ( N + 0 , 1 ) 

A Ij X t U + 0 , I ) ? A ! ) X ( M t 3 , I ) 

A U X i N + 4 t I ) - A U X ( N + 1 , 1 ) 

DEL I ~ A U X ( iv + 6 , I )+AUX(N + 0, I ) 

DEI. i = DF L T + DEl T + DELT 

221 A L X ( 1 6 i i )s«,962963#(Y( I )«AL'X(N-3, I ) ) -3 , 361 11.1 «H» < PER Y < I ) + D E L T 
1 + A U X ( iv + 4 > I > ) 

GO ! 0 2 toil 

0 

0 

C H MUST HE HALVED 

222 I HU 7 IHuF + 1 

I F ( 1 H L F - 1 to 5 2 2 3,223,210 
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2 a B X y 226 H S , 5 H 

33 a B 2 0 -IS 7 P J - 0 

28630 DO l s 1 f N 0 I H 

2iiH'U) Y( P PZ05 9262 5* { 6 0 , *AUX ( N~1 * I ) *135 , «AUX { NPP I ) + 40 , *AUX ( iV,}, j ) * 

2 B G 5 0 lAljX I N-4 f 1 ) ) - , 11 71875* ( AUX ( \’ + 6 , p -6 , *AUX( \' + 5, U -AUX ( N+4, 1 > ) «h 

2BO60 Ayx l i'J-'l . I ; s . 00590625* (12, »AUX ( N~1 . J ) + 135-. *Atl-X C N - id , J 

28870 110 8 i A U X ( N •■ 3 » I )+AUX(.P‘P I ) > - , 0 2 3 4 6 75 « ( A U X ( W * 6 , I ) P « , *AUX ( N + 5 , ! )- 

2BB8B 29 , * AUX ( N+ 4 , I ) ) «H 

9. 2BB90 A'jX (N-3 * P = A!jX ( N~? , I ) 

2 B 9 S 0 2 2 1 A u X l N + 4 1 I ) - A 0 X ( N + 5 > I ) 

2 B y 1 0 X s X "■ H 

■■■ 20920 Df:ul=X“UPh) 

28950 CaU- FCTUitL.T, Y» DENY , J ERROR) 

28940 in itlHROH ,tU , 1) GO TO 230 

r 2U950 00 225 1-1, NO 10 

2.8960 A lj X 1 H ” 2 » t ) s Y ( I ) 

289 70 AUX C N + 5 »J I-PERY ( I ) 

28980 225 Y ( P = AU X ( h - 4 , J ) 

28990 PEL F 3 Oft T - ( H + H ) 

29002 0 A L, C I'CniJl-.l.T, Y,OERY, lEHROR) 

t: - 29010 l F ( TERROR , EQ , 1) GO TO 230 

2902O UO 226 PlPOIiP 

29030 Oft I =AUX(N+5, I ) +AUX<N+4» \ ) 

2 29040 OEf I f PELT + OELT + DELT 

29000 AIJXU6, 1 ) “if:.* 9 62 9 6 3 «■ t A U X < Mi P“Y( 1 ) ) - 3 » 36 i 111 ( AUX ( N + & » I PDEt I 

29060 l + DPP (P) 

’ 2907O 226 AUXCN + 3, P=DEHYU ) 

29080 ’ _Gq IQ 206 

2 9090 . G " ~ 

29100"" c ERROR RETURN BECAUSE OF T R 0 U 3 1 E S j N SUBKOUT j (MfS -FCT~ OR -OUTP- , 
29110 230 IHLP-14 

29120 ' RETURN 

,r . 29130 End’ 

29140 C 

2 9 1 5 U 1' •*»!*? 

■ 29160 C 

291/0 S U B H OiJT i N E RTW1 ( X , V A l , F C T , X5 T » f PS , J E NO f 1 ER ) 

29180 C SOLVES ' H£ GENERAL NONLINEAR EQUATION OF THE FORM X - F C T < X > UY MEANS 

' 29192 C OF WEGC'nS 1 E 1 ;Y-S N 0 L! 1 F I C A T i 0 N OF THE SECANT hETHOP, 

29202 G V TAKEN uIrEGTLY FROM THE IBM SCIENTIFIC SUBROUTINES. -RTWJ* ) , 

2 9 21 v) C 

1 2 9 2 2 0 C P R E P A R E P E RAT I 0 N 

2923F ’ iCRsa 

292 4 0 lOlpXsr 

29252 X s p U T ( T U L J 

2 9260 A s X “ X S T 

2 9 2 / 0 U 3 - A 

"- 292H0 T QL_ ~ X 

29290 VALpX-FUT ( TOf ) 

2 9 3 0 2 C 

■■ 29310 0 STAR! I I ERA I I ON LOOP 

29320 ' l) 0 ft J= 1,] END 

2 9 8 3 0 I F( V A L ) 1 1 7 ,1 

' 2 9 3 4 F (; 

2 9 852 C EquAI ION IS \QT SA] ISF I ED 9Y X 

2 9 3 6 pi j. P s P / V A L, - 1 , 

■' 2 v 5 y 0 I p ( ti ) 2 1 B » 2 

2 V 3 ft 0 g 

'29 39P ■; I TiPATJUU I ft POSSIBLE . 

% 0 9'.;;,: 0 A = A / |J 
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2 0 
2 y 4 2 o 
2 v 4 3 0 
2 9 4 4 0 
2 9492 

2 9 4 6 0 
2 V 4 / *3 
2 9 4 6 0 
2 9 4 y 0 
2 9 9 0 
2 9 '.> 1 ii 
29920 
2 9930 
2 9 9.4 0 
2 9 9 9 0 
2 9960 
29970 
29960 
2 9 9 90 
2 9 6 0 k) 
29610 
2 9 6 20 
2 9 6 30 
2 9 6 4 0 
29 6 90 
2 9 6 6 0 
2 9 6 7 0 
2 9 6 6 0 
2 9 6 y 0 
29/02 


X s X + A 
- Ur.\/A2 

TQL.-X 

VAl ; =X~FUT( TOD 

C . . .... .... 

C TEST OH SATISFACTORY ACCURACY 
TOU -tips 

1 U = A:iS(X) 

1 F ( ' • ' i . M,4,3 

3 TOU^OL^P 

4 I F { A » 3 ( a ) - T 0 L, ) 9 > 9 , 6 

9 I F ( AUS { V At) ~ 10 , *TDl > 7 » 7 > 6 

6 C OH II HUE 

c end of Iteration loop 
c 

C. NO CONVtRCENCE AFTER IENO ITERATION STEPS , E R R C R R £ T U R 
IF-R"-1 ' 

7 RETURN 
C 

C ERROR RETURN IN CASE OF AERO DIVISOR 

5 I£R = 2 
RETURN 

end 

1 ENGU.ENOL, 

10 

1,40, 2 8 ,967,0,1* 94F,0» 284 7 ,81 
1.40,28,967,129,319,1493,00 . 

1.0. 4. 2352? 0,0 

26.46875.0. 0.60.0 

2 ENGL, ENGL, 
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